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INTRODUCTION 


This  final  report  is  primarily  concerned  with  the  development  of 
electronic  instrumentation  firmware  and  software  associated  with  balloon- 
borne  Quadrupole  ion  mass  spectrometers.  Work  associated  with  rocket- 
borne  instrumentation  is  summarized.  Some  of  the  work  reported  originated 
under  the  prior  contract^.  The  remainder  of  the  work  discussed  can  be 
classified  as  the  refurbishment  of  recovered  instruments  or  the  construc¬ 
tion  of  somewhat  modified  versions  of  previously  designed  packages.  The 
material  which  follows  is  grouped  into  two  chapters. 

The  first  chapter  is  concerned  with  rocket  programs.  The  instrumen¬ 
tation  provided  was  an  outgrowth  of  that  developed  under  the  previous 
contract.  System  concepts  have  remained  the  same  and  the  majority  of  the 
modifications  from  one  vehicle  to  the  next  have  been  made  to  accommodate 
variations  in  spectrometer  design  or  the  scientific  objectives  of  the 
experiment  itself.  Consequently  the  changes  incorporated  into  this  genera¬ 
tion  of  instruments  have  usually  been  those  required  to  realize  different 
voltage  ranges,  quadrupole  exciter  frequencies,  data  word  length,  packag¬ 
ing  constraints  and  modernization  of  existing  circuits.  This  being  the 
case,  the  majority  of  the  discussions  found  in  Chapter  1  are  quite  brief. 
Detailed  discussion  of  the  electronic  systems  associated  with  the  rocket- 
borne  instruments  may  be  found  in  References  1  and  3. 

The  second  chapter  is  concerned  with  a  balloon-borne  system.  This 
work  started  under  the  previous  contract  and  was  continuously  carried  on 
until  the  completed  system  was  delivered  to  the  Air  Force  in  August  1981. 

-  1  - 
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During  the  contract  two  Scientific  Reports  ’  dealing  with  the  balloon- 
borne  systems  were  issued.  An  in-depth  discussion  of  the  instrumentation 
developed  is  carried  in  this  chapter.  Previously  issued  in-house  type 
publications  concerned  with  flight  and  ground  control  routines  are  in¬ 
cluded  in  the  appendices. 
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I .  ROCKET  PROGRAMS 


A.  THE  1979  SOLAR  ECLIPSE 

Two  cluster  ion  mass  spectrometer  (CIMS)  electronic  packages  were 
completed  for  the  AFGL  Solar  Eclipse  Program.  Work  on  these  units  was 
initiated  during  the  prior  contract.  Anticipating  less  sophisticated 
ground  support  equipment  at  the  Red  Lake  Launch  Site,  Ontario,  Canada, 
than  had  been  previously  available  at  WSMR,  lO-bit  synchronization  and 
data  words  were  employed  in  the  PCM  data  transmission  system.  One  rocket 
package  was  completely  constructed  while  the  second  resulted  from  the 
modification  of  a  package  which  had  not  been  launched  from  WSMR  earlier. 

In  the  latter  case,  new  flight  control  units  had  to  be  constructed.  A 
new  design  and  package  layout  for  the  high-voltage  section  was  incor¬ 
porated  in  these  vehicles.  The  quadrupole  excitation  signal  and  control 
circuits  were  substantially  the  same  as  in  the  WSMR  rounds.  Descriptions 
of  the  control  circuits  may  be  found  in  Reference  1.  The  ac  exciter  cir¬ 
cuits,  developed  in  part  as  a  sponsored  Master  of  Science  Thesis  by 
T.  Palasek,  were  described  in  the  Scientific  Report  No.  2  issued  under 

3 

this  contract  .  Field  support  was  supplied  for  both  vehicles  during  the 
period  8  February  -  1  March  1979  at  the  Chukuni  Launch  Range,  Ontario, 
Canada.  Both  packages  were  successfully  flown  on  26  February  1979.  The 
first  vehicle  was  launched  during  the  totality  and  the  second  was  launched 
approximately  45  minutes  later. 

B .  THE  SOLAR  PROTON  EVENT  PROGRAMS 

The  CIMS  instruments  constructed  under  this  program  were  essentially 
the  same  as  those  employed  in  the  Solar  Eclipse  Proaram  and  thus  the  coni- 
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mon  background  of  development  is  once  more  to  be  found  in  the  publications 
of  the  previous  contract. 

1 .  The  j_98p  SPE 

Two  CIMS  instruments  were  prepared  for  an  October  1980  launch  at 
Poker  Flat  Rocket  Range,  Chatanika,  Alaska.  One  instrument  became  avail¬ 
able  due  to  a  cancellation  of  a  launch  at  WSMR  and  consequently  merely 
required  modification.  The  other  was  completely  constructed.  With  the 
exception  of  the  bias  section,  the  same  type  of  the  electronic  subsystems 
used  in  the  Solar  Eclipse  Program  were  also  employed  in  the  SPE  instru¬ 
mentation.  In  the  bias  section,  the  cumbersome  current  sources  and  vol¬ 
tage  dropping  devices  used  to  generate  the  accelerator  and  common-rod 
bias  signals  were  replaced  by  a  high-voltage  operational  amplifiers.  The 
target  high-voltage  supply  (Venus  K30-Z)  was  moved  from  the  RF  section  of 
the  instrument  onto  the  same  deck  with  the  multiplier  high-voltage  supply. 
The  latter  was  instrumented  with  a  F-50  model  to  avoid  the  increasing 
costs  of  the  previously  used  MG12.  The  RF  oscillator  frequency  was  re¬ 
duced  to  1.85MHz  thus  allowing  operation  up  to  255  amu  without  pushing 
the  oscillator  output  capabilities  to  the  limit. 

The  two  instruments  were  delivered  to  AFGL  and  one  was  subsequently 
launched  on  22  October  1980  and  then  recovered.  Personnel  from  this  con¬ 
tract  were  not  involved  in  the  field  party. 

2.  The  1981  S_P_E 

The  recovered  instrument  from  the  22  October  1980  launch  was  refur¬ 
bished  and  checked  out  along  with  the  vehicle  which  had  not  been  launched. 
Payload  and  integration  tests  were  conducted  at  AFGL.  Contract  personnel 
provided  field  support  for  these  two  vehicles  at  PFRR,  Alaska,  during  the 
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period  5-19  August  1981.  Both  vehicles  were  installed  on  launchers  and 
a  solar  proton  event,  SPE,  awaited.  Since  a  SPE  did  not  appear  likely 
in  late  August  the  field  personnel  returned  on  19  August  1981  and  went 
into  a  standby  mode. 

The  field  party  returned  to  Alaska  under  the  follow-on  contract  on 
13  October  1981.  One  vehicle  was  launched  on  26  October  1981. 

C .  THE  AURORAL  E.  PROGRAM 

A  previously  flown  (1975)  switched  positive  ion/neutral  instrument 
was  refurbished  for  the  Auroral -E  program  conducted  during  March  of  1981 
at  PFRR,  Alaska.  The  instrument  predated  the  CIMS  and  had  sustained  some 
damage  during  the  previous  flights.  Therefore,  some  of  the  damaged  and 
outdated  circuits  were  improved  and  simplified.  The  broken  transformer 
core  of  the  RF  oscillator  was  replaced  by  a  core  of  the  same  vintage. 

But  the  RF  amplitude  control  circuits  which  proceeded  the  comparator 
peak  detector  were  modified.  The  flight  programmer  was  completely  re¬ 
designed  and  constructed  in  order  to  meet  the  new  program  requirements 
set  by  the  scientist.  An  interface  and  safety  interlock  unit  was  also 
incorporated  in  the  refurbished  package. 

The  new  programmer  design  was  built  about  the  2758  EPROM.  Two-byte 
control  words  were  used  to  define  the  bias  voltages  and  the  mass  filter 
excitation  signals.  A  breakpoint  was  generated  whenever  a  digital  com¬ 
parator  detected  a  match  between  a  counter  output  and  those  digits  in 
the  control  word  which  were  used  to  define  a  specific  amu  number.  All 
together  two  separate  programs  containing  256  breakpoints  each  could  be 
run.  The  vehicle  timer  selected  the  programs. 


The  interface  unit  was  desioned  to  interconnect  the  mass  spectro¬ 
meter,  the  telemetry  system,  the  power  transfer  circuits,  the  flight 
timer  and  the  umbilical  connections.  It  replaced  a  previously  used  unit 
to  provide  additional  space  for  other  experiments  in  the  vehicle.  The 
relay  used  to  switch  between  internal  and  external  power  sources  was 
included  in  this  unit.  Buffer  amplifiers  were  used  to  isolate  the 
monitor  signals  going  into  the  telemetry  unit  from  the  loading  and  noise 
pickup  created  when  the  umbilical  cable  was  connected.  An  interlock 
arrangement  in  the  timer  unit  was  provided  to  prevent  the  possibility 
of  simultaneous  conflicting  commands  issued  by  the  vehicle  timer  and  the 
ground  controller. 

The  electronics  package  was  delivered  to  AFGL  in  October  1980  and 
subsequently  followed  through  payload  integration  and  testing.  Contract 
personnel  were  not  involved  in  the  field  program,  but  the  rocket  was  suc¬ 
cessfully  launched  on  6  March  1981. 


II.  BALLOON  BORNE  ION  MASS  SPECTROMETER 


A .  OVERVIEW  OF  THE  BBIMS  PROGRAM 

The  development  of  the  hiahly  flexible  electronics  system  to  control 

a  balloon  borne  ion  mass  spectrometer  (BBIMS)  had  its  oriains  under  the 

previous  contract.  Some  of  the  basic  functions  which  were  needed  were 

incorporated  in  a  prototype  microprocessor-based  design  developed  under 

a  sponsored  Electrical  Engineer  Thesis  by  V.  Gerousis.  This  work  was 

2 

published  under  this  contract  as  Scientific  Report  No.  1. 

A  detailed  description  of  the  final  system  developed  under  this  con- 

4 

tract  was  presented  as  a  conference  paper  and  subsequently  issued  as 

5 

Scientific  Report  No.  3.  Since  that  publication  carries  a  detailed 
discussion  of  the  system  and  its  capabilities  the  remaining  sections  of 
this  chapter  will  be  devoted  to  descriptions  of  the  major  circuits  compris¬ 
ing  the  system  together  with  their  circuit  diagrams.  Previously  issued 
in-house  publications  concerned  with  flight  and  ground  control  routines 
are  included  in  the  Appendices. 

Functionally  the  electronics  system  of  the  BBIMS  was  subdivided  into 
three  major  subsystems:  the  exciter  circuits,  the  control  circuits,  and 
the  communication  circuits.  The  primary  function  of  the  exciter  circuits 
was  to  generate  and  to  provide  analog  signals  to  the  structure  of  the  mass 
filter.  The  control  circuits  determined  the  parameters  that  placed  the 
mass  filter  in  a  desired  mode  of  operations  within  the  mass  spectrum. 

Data  transmission  and  ground  based  commands  to  the  airborne  unit  were  in 
the  realm  of  the  communication  circuits,  which  included  a  Ground  Control 
Unit  (GCU). 
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The  digital  control  signals  to  the  analog  circuits  passed  through  a 
D  to  A  interface.  From  these  signals  the  dc  and  the  ac  components  of  the 
quadrupole  excitation  signal  were  generated.  The  ratio  between  the  two 
components  was  determined  by  a  multiplying  DAC.  Another  set  of  five  DAC's 
were  used  to  provide  bias  voltages  to  the  filter  and  to  the  ion  optics. 

These  basic  tasks,  with  very  limited  communications  and  data  handling 
capabilities,  were  incorporated  in  a  preliminary  microprocessor  based  de¬ 
sign  reported  in  Reference  2.  Changing  and  expanding  reouirements  for 
flexibility  in  the  control  and  coirwuni cations  capability  of  the  balloon 
borne  instrumentation  package  required  a  redesign  of  the  system.  Noise 
induced  error  compensation,  selected  bias  voltage  sweep,  controlled  amu 
band  fast  spectrum  scan,  cummulative  count  and  other  modes  of  operation 
were  incorporated.  Combinations  of  these  modes  were  also  possible.  Com¬ 
munications  through  a  serial  UP/DOWN  links  and/or  through  the  serial  UP 
and  through  the  PCM  DOWN  links  were  introduced.  Data  gathering  and  trans¬ 
mission  were  synchronized  with  the  PCM  encoder.  This  new  primary  micro¬ 
processor  based  system  was  augmented  with  an  independant  secondary  combi¬ 
national/sequential  CMOS  logic  system.  The  control  of  the  exciter  circuits 
was  exercised  through  a  common  interface  with  the  CPU. 

The  data  from  the  balloon  borne  instruments  were  processed  by  a  pro¬ 
grammable  CMOS  PCM  encoder.  The  received  PCM  data  were  demultiplexed  and 
displayed  for  monitoring  purposes  by  a  GCU.  Control  over  the  airborne 
instrument  was  also  exercised  through  GCU.  The  radio  links  were  not  in¬ 
cluded  in  the  development  and  were  furnished  by  AFGL. 


B.  THE  EXCITER  CIRCUITS 

1 .  Power  Transfer  and  Supplies 

The  power  transfer  circuits  included  in  the  mass  spectrometer  package 
are  shown  in  Figure  1.  The  main  power  from  the  2R  volt  balloon  battery 
assigned  to  the  spectrometer  was  controlled  by  a  master  relay  not  shown 
in  the  drawing.  The  same  relay  also  transferred  the  power  from  an  8  volt 
battery  to  the  uP  bas«.J  mass  spectrometer  control  circuits.  The  master 
relay  in  turn  was  controlled  through  a  tone  command  link.  The  power  to 
the  high  voltage  supplies  and  the  RF  oscillator  were  also  controlled 
through  the  tone  command  system.  Two  channels  of  the  link  provided  ground 
closures  for  the  2N2907  transistors  to  turn  the  power  ON  and  OFF.  Separate 
controls  for  the  HV  and  the  RF  circuits  were  provided  for  convenience  dur¬ 
ing  laboratory  operations. 

The  power  supply  circuits  are  shown  in  Figure  2.  The  battery  voltaae, 
preregulated  to  20  volts,  powered  the  dc-dc  converter.  The  nonsaturating 
squarewave  ac  to  ac  converter  used  two  FERROXCUBE  2616-3C8  pot  core  trans¬ 
formers  to  provide  the  necessary  outputs  for  the  bridge  rectifier  circuits 
HEXFET's  driven  by  a  25kHz  symmetrical  squarewave  derived  from  a  CMOS  os¬ 
cillator  provided  the  chopped  dc  to  the  transformers. 

Three  additional  voltages  were  derived  without  the  benefit  of  the 
transformer.  The  +20V  was  taken  from  the  previously  mentioned  preregulator, 
+40  volts  was  obtained  from  the  drive  circuits  of  the  HEXFET's  (J,H)  and 
the  -20  volts  was  generated  through  a  dc  restorer  circuit.  The  output 
circuits  of  the  last  two  sionals  are  shown  in  Figure  1.  The  -20V  were 
used  to  switch  the  HV  and  the  RF  power  relays  OFF  during  the  flight.  The 
+40  volts  were  provided  for  busing.  Voltage  regulation  was  provided  at 
the  circuit  level  when  required. 


The  high  voltages  for  the  positive  ion  target  and  the  electron  multi¬ 
plier  were  derived  from  commercially  available  supplies. 

2 .  Bias  Circuits 

The  bias  and  the  bias  monitor  circuits  are  shown  in  Figure  1.  The 
digital  control  word  was  latched  into  the  yP  compatable  DAC  configured  for 
bipolar  operation.  The  output  was  amplified  by  a  high  voltage  amplifier 
to  the  required  level.  Precision  rectifiers  provided  unipolar  monitor 
signal  for  transmission  through  the  telemetry.  Five  such  bias  circuits 
were  used  in  the  BBIMS  unit. 

3.  Vacuum  and  H.V.  Monitors 

The  quadrupole  housing  vacuum  was  monitored  by  a  heated  thermocouple 
junction.  The  circuit  shown  in  Figure  1  provided  the  necessary  signals. 

The  heater  current  of  20mA  was  generated  by  the  voltage  regulator  config¬ 
ured  into  a  current  source.  The  thermocouple  junction  voltage  was  detected 
and  amplified  to  a  level  acceptable  to  the  telemetry.  The  H.V.  monitors 
are  also  shown  in  the  same  figure. 

The  output  pulses  of  the  electron  multiplier  were  conditioned  by  the 
circuit  shown  in  Figure  1.  The  charge  sensitive  preamplifier-discriminator 
(AMPTEK  A-101  PAD)  was  set  to  detect  charges  of  10"^^  Coulomb.  The  pre¬ 
amplifier  output  pulses  of  220ns  were  conditioned  by  the  flip-flop  for 
transmission  to  the  pulse  counter  in  the  flight  control  unit. 

5 .  Sweep  C i rep i  ts 

The  digital  circuits  to  control  the  quadrupole  excitation  signals  are 
shown  in  Figure  3.  The  code  designating  the  start  of  an  amu  sweep  was 
latched  into  the  presettable  counter  -  ^27).  The  counter  was  advanced 
at  regular  intervals  until  the  last  amu  code  in  a  particular  sweep  was 
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reached.  That  code  was  stored  in  latches  Z^g)  for  comparison  with 
the  output  of  the  counter.  Upon  a  match  the  comparator  (Z^i  -  oro- 

duced  a  pulse  used  to  initial  the  next  control  process.  One  of  the  pos¬ 
sible  processes  adjusted  the  ion  count  for  system  noise.  Durinq  this  time 
the  ratio  between  the  ac  and  the  dc  qudrupole  excitation  siqnal  components 
was  raised  to  inhibit  the  ions  from  reaching  the  electron  multiplier.  This 
was  accomolished  by  putting  the  latches  Z^g  and  Z^g  containing  the  ratio 
code  into  the  high  impedance  state.  The  amu  and  the  ratio  control  codes 
were  periodically  transferred  into  the  shift  register  (Z^^  -  Z^g)  for 
transmission  to  the  PCM  encoder. 

The  digital  amu  and  ratio  control  codes  were  converted  into  appropri¬ 
ate  analog  signals  by  the  DAC's  and  the  amplifiers  shown  in  Figure  Thus, 
the  analog  signals  for  the  DC  amplifiers  and  the  control  of  the  RF  oscil¬ 
lator  were  generated.  The  additional  gain  necessary  for  operating  the 
quadrupole  mass  filter  in  the  hioh  pass  mode  was  provided  throuoh  the  FET 
aate. 

To  obtain  the  required  DC  voltage  levels  and  to  inject  the  common  0 
bias  pedestal  into  the  quadrupole  structure,  circuits  shown  in  Figure  5 
were  used.  High  voltage  operational  amplifiers  augmented  by  power  trans¬ 
istors  (0^,  0^)  were  employed  to  handle  the  large  voltaoe  range.  Current 
sources  (O^.  Og)  were  used  in  the  collector  circuits  to  minimize  power 
dissipation  during  quiescent  periods.  To  decrease  the  rise  time  during 
large  siqnal  increments  the  current  source  capability  was  increased  from 
TmA  to  25mA  by  forcing  0.j  and  Og  into  saturation  for  a  short  duration. 

6 .  The  AC  Exciter 

The  circuit  diagram  of  the  oscillator  which  provides  the  ac  excita¬ 
tion  siqnal  to  the  quadrupole  filter  is  shown  in  Figure  6.  The  transformer 
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driving  the  1.9cm  quadrupole  rods  was  wound  on  an  acrylic  toroid  11cm  in 
diameter,  5cm  high  and  a  wall  thickness  of  1cm.  Chokes  were  used  to  pre¬ 
vent  the  ac  from  enterina  the  dc  excitation  signal  circuits. 

The  oscillator  operated  at  600kHz  with  the  peak  voltage  spanning  a 
10  to  1600  volt  range.  The  control  over  the  amplitude  was  exercised 
through  an  operational  amplifier  (3581)  where  the  control  and  the  feed¬ 
back  signals  were  summed.  The  feedback  signal  was  derived  from  the  trans¬ 
former  output  winding  through  a  capacitive  divider  and  a  dc  restorer  circuit. 

To  provide  sufficient  ac  feedback  signal  for  the  driver  transistors 
(2N5008)  of  the  oscillator,  additional  capacitors  (3.2kpF)  were  switched 
through  VNIOKM  into  the  b^*-.'  driv";  circuits  during  the  operation  in  the 
lower  output  range.  The  sv  ■  ,c'-iover,  in  the  excitation  signal  controlled 
through  the  bias  control  circuit,  produced  a  transient  of  short  duration. 
Therefore,  the  point  whero  the  feedback  circuit  switched,  was  selected  to 
fall  within  a  range  of  the  mass  spectrum  of  little  or  no  interest  to  the 
exoerimenter. 

To  protect  the  oscillator  from  accidental  overdrive  or  overheating 
due  to  a  orolonged  operation  in  the  uoper  mass  range,  current  sensing  and 
thermal  shutdown  circuits  v/ere  used.  Both  circuits  provide  abrupt  re¬ 
covery  to  insure  resumption  of  oscillation. 

^ •  the  flight  control  unit 

The  Flight  Control  Unit  (FCU)  provided  digital  signals  to  control  the 
operation  of  the  ion  mass  spectrometer.  Commands  and  data  also  were  pro¬ 
cessed  by  the  unit.  The  control  unit  consisted  of  two  subsystems.  The 
primary  system  was  based  on  an  8085)iP  while  the  secondary  system  employed 
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CMOS  combinational/sequential  loqic.  The  control  of  the  instrument  could 
be  transferred  between  the  two  systems  through  the  tone  command  link  of 
the  balloon.  Both  systems  worked  throuoh  a  common  interface  to  reach  the 
digital  to  analog  conversion  circuits  which  controlled  the  generation  of 
the  excitation  signals  for  the  mass  filter  and  the  bias  voltages  for  the 
ion  optics. 

1 .  ^ 

The  yP  based  control  circuits  are  shown  in  Figure  7.  Only  two  inter¬ 
rupts  were  used  to  divert  the  yP  to  priority  tasks.  Request  for  data  from 
the  PCM  encoder  utilized  the  interrupt  7.5.  The  RF  reset  command  was 
utilized  to  activate  the  TRAP  interrupt  in  order  to  return  the  system  to 
the  beginning  of  the  data  gathering  program  without  destroying  the  elapsed 
flight  time  counter  in  U143  (CLK2). 

Normalization  of  the  spectrometer  data  to  counts  per  second  before 
the  transmission  from  the  RAM  was  performed  by  the  arithmetic  unit  (11141). 
The  unit  was  not  capable  of  operating  at  the  yP  clock  rate.  Therefore,  the 
clock  frequency  was  halved  and  a  WAIT  state  was  generated  by  U163  and  U170 
respectively. 

Data  from  the  mass  spectrometer  was  received  by  the  counter  in  U143 
(CLKl).  The  output  of  U158  was  reset  to  ZERO  at  the  beginning  of  every 
data  collection  period  by  a  signal  originating  at  PA3  of  LI142.  The  status 
was  sensed  at  PC0  of  the  same  unit.  This  process  in  effect  reset  the 
flip-flop  in  the  data  condition! no  circuit  at  the  electron  multiplier. 

(ipon  command  the  data  counter  in  U143  reset  itself  on  the  negative  trans¬ 
ition  followina  the  first  positive  transition  of  the  input.  Only  then 
the  counting  began.  Therefore,  the  registered  count  could  differ  by  as 
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many  as  three  counts  from  the  actual  number  of  ion  impacts.  To  correct 
the  result  U166  was  used.  At  the  end  of  the  data  collection  period  the 
outputs  of  L)158  and  LI166  were  examined.  A  ONE  at  the  output  of  U166  re¬ 
sulted  in  an  addition  of  two  to  the  count.  One  was  added  when  the  output 
of  U158  was  found  to  be  high.  Error  of  three  counts  was  indicated  when 
the  outputs  of  both  circuits  were  high. 

The  other  two  counters  within  the  U143  were  used  for  timing  purposes. 
The  elapsed  time  in  seconds  since  the  last  reset  of  the  whole  system  was 
kept  by  the  counter  2.  The  length  of  the  data  collection  period  was  de 
termined  by  the  counter  0.  The  two  counters  were  driven  at  IHz  and  200Hz 
respectively.  The  signals  were  derived  from  204.8kHz  clock  (BA)  through 
U168,  LI169  and  U172.  The  end  of  the  data  collection  period  was  trans¬ 
mitted  to  PC3  of  1)142  and  to  the  data  conditioning  flip-flop  in  the  mass 
spectrometer.  The  data  collection  began  when  the  inhibit  signal  at  GATE  1 
of  1)143  and  MR  of  U169  was  removed.  The  counter  0  of  IJ165  determined  the 
frequency  of  the  AC  exciter.  This  information  was  used  to  adjust  the  am¬ 
plitude  of  the  quadrupole  excitation  signals  to  comoensate  for  frequency 
drift.  The  counter  was  activated  periodically  for  one  second  by  U174-U176 
and  PA2  of  U142.  The  frequency  correction  subroutine  could  be  bypassed 
through  the  switch  at  PBl .  The  counter  1  of  U165  timed  the  length  of  com¬ 
munications  through  the  serial  command  link.  Any  attempt  to  communicate 
beyond  allotted  time  was  interrupted  through  PC5.  The  UART  (U159)  was 
driven  by  a  clock  signal  generated  in  U142.  To  insure  that  communications 
were  attempted  through  a  viable  link,  the  AGC  of  the  balloon  borne  receiver 
was  connected  to  DSR  of  the  UART. 
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other  control  signals  passing  through  the  U142  I/O  ports  included  the 
RAM  DUMP  request  to  and  the  acknowledgement  from  the  PCM  encoder  (PAO  and 
PCI  respectively).  The  request  to  dump  the  RAM  information  was  inhibited 
during  combinational  logic  operation  (U164).  The  synchronization  of  the 
data  to  PCM  encoder  was  accomplished  through  PAl ,  PC2  and  U163.  Finally, 
the  message  from  the  tone  command  link  not  to  adjust  the  mass  spectrometer 
data  for  noise  induced  errors  was  received  through  PBO. 

2.  Buffer  and  Interface  Circuits 

The  address  bus  to  the  RAM  and  the  EPROMS'  was  buffered  through  U145, 
U146,  U152,  U153  shown  in  Figure  8.  The  data  bus  to  the  RAM/EPROM  CIRCUITS 
was  split  into  two  unidirectional  buses  buffered  by  1)151  for  the  outgoing 
and  U167  for  the  incoming  data.  U144,  147,  148,  149,  162  and  177  buffered 
and  created  various  chip  select,  enable  and  strobe  signals  to  the  memory 
circuits.  The  interface  to  the  CMOS  data  circuits  was  created  by  pull-up 
resistors  (U150)  and  CMOS  buffers  U154  and  U155.  Low  oower  Schottky  TTL 
(U161,  162)  provided  chip  select  signals.  The  CMOS  latch  U156  transmitted 
control  data  to  the  D/A  interface  circuits.  A  code  consisting  of  the  BLSP's 
of  U160  was  decoded  in  the  combinational  logic  circuits  where  strobe  sig¬ 
nals  were  generated  to  latch  the  control  data  into  the  aopropriate  circuits. 
The  MSB  was  used  to  start  the  mass  spectrometer  data  collection  process. 

U157  served  as  a  temporary  storage  for  data  to  the  PCM  encoder.  Finally, 
the  U164  buffered  the  CPU/COMB  LOGIC  control  selection  signal  from  the  tone 
command  circuits. 

3.  Memory 

The  CPU  programs  and  the  mass  spectrometer  flight  control  library 
were  stored  in  six  of  the  eight  2716  EPROM's  (U98-U103)  shown  in 
Figure  9.  Two  were  used  as  spares.  Units  U198,  199  were  assigned  to  the 
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CPU,  the  rest  to  the  spectrometer. 


Only  4k  bytes  (U90-U97)  of  the  16k  byte  RAM  used  as  a  temporary  data 
storage  are  shown.  Since  the  memory  was  located  on  a  separate  board  from 
the  MPU,  the  two  data  buses  (DBIN,  DBOUT)  and  the  address  bus  were  buffered 
by  U206-U209.  Three  to  8  decoders  (U204,  U205)  provided  the  chip  select 
signals . 

4 .  Combinational/Sequential  Log i^  C j  rcu i t s 

Figure  10  shows  the  timing  and  the  data  circuits  of  the  combinational/ 
seouential  portion  of  the  MS  flight  control  unit.  The  length  of  a  data 
collection  period  (dwell  time)  at  a  given  mass  domain,  as  well  as,  the 
duration  of  the  data  adjustment  process  for  noise  induced  errors  was  con¬ 
trolled  by  these  circuits.  The  data  collection  circuits  and  the  shift 
registers  necessary  to  present  the  data  in  a  oroper  sequence  to  the  PCM 
encoder  also  were  included  in  this  portion  of  the  system. 

The  clock  signals  originated  at  the  oscillator  formed  by  U86  and 
associated  components.  The  3. 2768MHz  output  was  converted  into  two  siq 
nals  of  0.2048MHz  and  0.8192MHz  by  the  frequency  divider  U8P>.  The  former 
signal  was  transmitted  to  the  CPU  section  as  the  BA  time.  The  latter  sig¬ 
nal  clocked  the  presettable  divide-by-N  counter  (1)65,  66,88  and  89).  This 
presettable  frequency  divider  in  conjunction  with  the  counter  U54  estab¬ 
lished  the  dwell  time  in  multiples  of  5  milliseconds.  The  divider  was 
preset  to  a  count  originating  in  a  set  of  instructions  controlling  the  ion 
mass  spectrometer  during  a  given  segment  of  a  program.  Latches  U56  and 
1191  served  as  a  temporary  storage  for  that  16  bit  dwell  time  determining 
instruction. 

A  16  bit  data  counter  was  formed  by  U61-U64.  The  data  (BQ)  entered 
the  counter  through  the  circuit  of  U78.  To  correct  the  count  for  the 


division  by  two,  performed  in  the  sianal  conditinninq  circuit  at  the  elec¬ 
tron  multiplier,  the  contents  of  the  counter  were  shifted  one  position 
towards  the  MSB  when  transferred  into  the  serial-to-parallel  converter 
(U50,  51).  The  least  siqnificant  bit  of  the  incoming  data  stream  was  in¬ 
troduced  directly  into  the  S-to-P  converter.  This  accounted  for  odd  num¬ 
bers  of  ion  impacts. 

To  adjust  the  collected  data  for  noise  induced  errors  the  counter  was 
set  into  the  countdown  mode.  The  data  sinnal  triggering  the  counter  was 
inverted.  During  the  correction  process  the  ions  were  prevented  from 
reaching  the  electron  multiplier.  Thus  the  data  count  was  reduced  by  the 
number  of  noise  induced  multiplier  pulses.  Obviously  the  same  dwell  time 
as  for  data  collection  was  used  for  the  adjustment. 

During  the  switchover  into  the  countdown  mode,  the  contents  of  the 
data  counter  were  preserved  by  a  preset  enable  signal  from  U72.  This 
"store  the  count"  command  originated  in  the  control  section  of  the  CL 
system. 

The  counting  process  started  with  a  reset  of  the  dwell  time  counter 
which  also  enabled  the  data  counter.  A  GO  command  at  U77  enabled  U83. 

The  dwell  time  counter  started  receiving  clock  pulses.  At  the  same  time 
the  flip-flop  in  the  electron  multiplier  section  was  enabled.  An  over¬ 
flow  in  the  115^  marked  the  end  of  the  data  collection  interval  by  inhibit¬ 
ing  the  flow  of  data.  A  DATA  READY  pulse  was  generated  by  U79. 

The  circuits  l)50-U53,  55,  71  and  74  formed  a  portion  of  the  parallel- 
to-serial  data  converter.  Other  circuits  of  the  chain  were  located  in 
different  parts  of  the  mass  spectrometer  electronics  package.  The  inte'- 
connections  with  the  other  members  of  the  chain  are  indicated  by  letters 
B,  L  and  M.  The  paral lei -to-serial  converter  was  configured  to  present. 
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upon  request,  the  various  digital  data  and  monitor  signals  to  the  PCM  en¬ 
coder  in  a  prearranged  sequence. 

The  data  and  the  dwell  time  registers  (U50-LI53)  were  loaded  by  the 
P/S  control  pulse.  That  pulse  was  nenerated  only  when  new  data  was  ready 
for  transmission.  The  registers  U55,  71  and  74  used  to  indicate  system 
status  were  loaded  by  1st.  FRAME  sinnal  for  each  minor  PCM  frame. 

The  shift  registers  were  clocked  by  a  signal  from  U67.  Upon  reouest 
from  PCM  encoder  (MS  of  U79)  the  gate  LI73  was  enabled  allowing  oulses 
from  the  oscillator  U76  to  clock  the  counter  IJ67.  The  flip-flop  U77  was 
SET  after  eight  clock  pulses  were  passed  to  the  shift  registers.  Thus  a 
new  byte  of  data  was  shifted  into  U68.  Buffer  U70  presented  that  data  in 
parallel  form  to  the  digital  multiplexer  of  the  PCM  encoder. 

The  control  signals  for  the  mass  spectrometer  originated  in  the  cir¬ 
cuits  shown  in  Figure  11.  Each  segment  of  the  fliaht  program  was  defined 
by  a  32  byte  instruction  set.  These  instructions  were  stored  in  the 
EPROM's  U3  and  U4.  Sequential  selection  of  each  instruction  within  a  set 
was  controlled  by  the  counter  U7  and  U8.  The  same  5  bits  that  addressed 
the  EPROMS  also  controlled  the  1  of  32  decoder  (U12  and  U13)  used  to  gen¬ 
erate  strobe  signals  to  latch  each  instruction  into  an  appropr  ce  P  to  A 
interface  circuit  or  to  control  events  within  the  combi  national /sequential 
logic  circuits.  The  width  of  the  strobe  pulse  was  determined  by  U15  which 
enabled  the  selection  circuit  for  a  fraction  of  the  system  clock  period. 
Units  44,  and  36  buffered  the  strobe  signals,  while  IJll  was  used  as  a 
tri-state  interface  between  the  CL  circuits  and  the  MPU  signals  (SELX). 

The  startina  addresses  of  the  instruction  sets  were  stored  in  U2.  A 
counter  (Ul)  provided  the  7LSB’s  of  the  address.  The  4  MSB's  were  pro¬ 
vided  by  the  presettable  counter  U^l.  The  counter  could  be  preset  through 
the  tone  link.  Thus  up  to  16  different  programs  were  available  in  the 
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flight  repertoire.  The  selected  instruction  sets  were  presented  in  par¬ 
allel  form  to  the  mass  spectrometer  circuits  by  the  buffer  U5. 

Control  over  the  sequence  of  events  within  the  CL  control  unit  was 
exercised  through  a  sequencer  consisting  of  a  presettable  counter  U29 
and  4  to  16  decoder  U28.  Gates  and  flip-flops  routed  and  stored  the  con¬ 
trol  sianals  to  and  from  other  parts  of  the  unit. 

When  a  new  instruction  set  was  to  be  introduced  into  the  mass  spec¬ 
trometer  circuits,  a  ONE  at  Qo  of  U28  inhibited  the  counter  U29  through 
U18,  21,  27  and  37.  The  circuit  consistina  of  U16,  18,  19,  42,  and  33 
was  enabled.  Thus  the  clock  pulses  from  the  oscillator  U17  were  allowed 
to  reach  counters  L)7  and  U8.  Once  the  set  of  32  instructions  had  been 
loaded,  a  strobe  signal  from  the  1  of  32  selector  (15)  aaain  enabled  the 
sequencer  counter  throuah  U21  ,  22,  24,  27  and  37.  A  ONE  at  Q.|  of  U28 
generated  BINFO  RST  to  clear  the  data  counters.  The  GO  command  to  start 
the  data  collection  was  given  when  the  ^2  output  was  selected.  The  se¬ 
quence  counter  (LI29)  was  inhibited  until  the  DATA  READY  signal  indicated 
the  end  of  the  data  collection  interval.  Next,  the  command  to  store  the 
dwell  time  was  generated  at  Q^.  A  conditional  jump  was  executed  when  the 
sequencer  reached  When  the  data  correction  for  noise  induced  errors 
was  not  required,  the  counter  1)29  was  preset  throuah  1)25  to  select  Qg. 

This  occurred  v'hen  a  NO  DOWN  command  was  received  and/or  the  data  count 
exceeded  256  (Q^  of  the  data  counter  was  set).  When  the  sequencer  reached 

DATA  VALID  sianal  was  Generated  and  the  sequencina  stopped  until  the 
FS  signal  from  the  PCM  encoder  was  received.  Upon  arrival  of  the  FS  sin- 
nal  the  1st.  FRAME  and  the  P/S  pulses  loaded  the  paral lei -to-serial  data 
conversion  reoisters.  When  the  seouencer  advanced  to  Q.|  .j  the  INC  DOM 
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Dulse  incremented  the  mass  filter  by  one  quarter  of  an  amu  domain,  pro¬ 
vided  the  MSB  of  U2  was  set.  At  the  same  time  FF  U26  was  reset.  The 
FF  served  as  a  flag  to  indicate  that  data  were  to  be  collected  at  the 
same  mass  filter  setting,  but  with  a  different  set  of  bias  voltages. 

That  FF  was  set  every  time  the  loading  of  the  second  set  of  bias  para¬ 
meters  has  been  completed,  indicating  that  for  the  next  data  collection 
period  the  amu  domain  must  be  incremented.  The  FF  was  reset  every  time 
the  mass  filter  was  incremented.  Thus  the  system  was  automatically  pre¬ 
pared  to  collect  data  at  the  same  filter  setting,  but  with  another  set 
of  bias  voltages.  The  MSB  of  U2  overrode  that  command  and  reset  the 
sequence  counter.  Otherwise  a  pulse  at  initiated  the  loading  of  the 
second  set  of  the  bias  parameters,  while  Q-j^  stopped  the  sequencer  until 
the  loading  was  completed.  Since  the  amu  information  had  to  be  preserved 
the  counter  U7  and  UB  was  preset  to  1001.  Thus  the  locations  containing 
the  amu  settings  in  the  EPROMS  were  bypassed.  When  the  loading  was  com- 
nleted  a  pulse  at  Q-j^  reset  the  sequencer  to  the  state  for  a  new  cycle 
If  the  looD  counter  U9  and  010  had  not  reached  ZERO  during  the  last  con¬ 
trol  cycle,  the  same  program  was  repeated.  Otherwise  a  new  program  was 
run. 

When  data  correction  for  noise  induced  errors  was  required  the  se¬ 
quencer  proceeded  from  to  Q^.  The  command  to  store  the  count  was  sent 
to  the  data  counter.  Qg  reset  the  UP/DOWN  control,  Qy  enabled  the  data 
counter  and  stopped  the  sequencer  until  data  ready  signal  was  received 
From  there  the  seouencer  proceeded  through  the  steps  described  in  the 
branching  sequence. 
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5 .  Tone  Command  Conditioning 

Eleven  tone  command  link  channels  were  assioned  to  control  the  in¬ 
strumentation  associated  with  the  mass  spectrometer.  Circuits  shown  in 
Figure  12  were  used  to  condition  the  commands  into  appropriate  control 
signals . 

Relay  ground  closures  were  the  outputs  of  the  tone  command  link  de¬ 
coder.  Debounce  circuits  (U1 ,  U17)  conditioned  these  signals  for  further 
processing.  To  control  latching  relays  in  the  mass  spectrometer  circuits, 
the  command  signals  were  split  into  two  outputs  providing  ON/OFF  pulses 
on  each  alternate  command  received  through  the  same  channel.  Steady 
state  level  commands  were  also  available.  This  signal  conditioning  was 
accomplished  in  the  circuits  of  U3  throuah  U12. 

Two  of  the  tone  command  channels  were  assigned  to  select  one  of  the 
16  programs  available  to  the  mass  spectrometer  while  under  the  combina¬ 
tional  logic  control.  One  channel  transmitted  data.  The  other  was  used 
to  strobe  each  data  bit  into  a  shift  register  (U13,  Ul^).  Only  ZEROS 
had  to  be  transmitted  preceding  the  strobe  command.  Otherwise  a  ZERO 
v/as  shifted  into  the  register.  Each  four  bit  selection  code  was  pre¬ 
ceded  by  an  8  bit  identification  word.  Only  when  the  comparator  (U15, 

1)16)  detected  the  identification  word,  the  four  program  selection  bits 
were  accepted.  Then  the  CD  VALID  pulse  together  with  the  four  bit  code 
were  transferred  to  the  combinational/sequential  control  circuits. 

6.  PCM  Encoder 

The  PCM  encoder  was  designed  to  accommodate  48  analog  and  10  eight 
bit  digital  signals.  One  of  the  digital  channels  was  dedicated  to  the 
mass  spectrometer  data.  The  format  of  the  PCM  signal  and  the  selection 
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of  the  various  inputs  for  precessinq  was  controlled  by  a  program  resid- 
ino  in  an  EPROM.  A  complete  description  of  the  operation  and  the  capa¬ 
bilities  of  the  programmable  encoder  may  be  found  in  Reference  3. 

The  circuits  of  the  PCM  encoder  may  be  separated  into  two  functional 
parts  for  convenience:  the  control  signal  generator  and  the  data  proc¬ 
essing.  The  circuits  shown  in  Figure  13  provided  the  timing  and  the 
control  signals  to  the  data  acquisition  and  processing  components.  The 
clock  for  the  parallel  to  serial  data  converter  (U6,  U7)  was  generated 
by  units  L)l-U3  and  U9.  A  bit  rate  of  12kb/s  or  48kb/s  could  be  selected 
through  the  balloon  tone  command  link  (fc).  Another  clock  signal  at 
twice  the  selected  frequency  was  used  to  generate  interval  timing  sig¬ 
nals.  Two  decoded  counters  (U4,  UB)  driven  by  that  clock  synchronized 
the  control  sequence.  During  the  second  and  the  third  bits  of  each  word 
within  the  PCM  data  stream  a  program  counter  (U14  or  U19)  was  advanced 
twice.  The  first  control  byte  stored  in  an  even  numbered  address  loca¬ 
tion  of  the  EPROM  (U12)  was  latched  for  temporary  storage  into  Ull .  The 
second  byte  remained  available  on  the  output  lines  of  the  EPROM.  The 
control  pulses  for  this  sequence  originated  at  Q2-Q4  O'*"  U4.  After  this 
sequence  was  completed,  the  control  circuits  were  deactivated  until  bit 
8  of  the  data  word.  During  the  last  bit  the  data  available  on  the  data 
bus  (DBX)  was  transferred  into  the  P/S  converter  and  the  two  control 
bytes  were  latched  into  U16  and  1117.  The  control  byte  in  U16  was  used 
to  control  the  analog  data  multiplexer  signals  on  lines  (CS1-CS3, 

AS1-AS4)  or  to  signal  to  the  user  of  the  digital  channels  that  the  en¬ 
coder  was  ready  to  accept  data  (SR1-SR6).  The  4  LSB's  of  the  control 
byte  in  U17  selected  the  data  words  to  be  inserted  into  the  PCM  train. 

The  3  MSB's  were  used  to  format  the  output  of  the  encoder.  A  ONE  in 
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the  MSB  position  signified  an  end  of  a  minor  frame.  In  conjunction  with 
a  pulse  at  3  of  U4  (during  the  first  data  bit  of  a  PCM  word)  it  reset 
the  minor  frame  counter  (U14),  advanced  subframe  identification  counter 
(U29),  acknowledged  "RAM  DUMP"  reguest  from  MPU  (13U30)  and  reset  FF 
1U30  thus  insuring  that  an  even  numbered  control  byte  was  available  at 
the  output  of  the  EPROM.  ONE  in  the  NMSB  position  accessed  the  sub- 
frame  program  through  the  proper  selection  of  the  tri -state  buffer  cir¬ 
cuits  (U13,  U15,  U18).  It  disabled  the  minor  from  program  counter  (U14) 
and  enabled  the  subframe  program  counter  (U19).  The  end  of  a  major  frame 
was  controlled  through  a  ONE  in  the  3rd.  MSB  position  during  the  last 
word  of  a  subframe.  A  pulse  generated  at  10U22  during  the  last  word  of 
the  minor  frame  reset  the  subframe  program  and  the  identification  count¬ 
ers  (U29). 

Other  units  (UlO,  U24,  1)26)  were  used  to  provide  sync  signals  to 
an  analoo  to  digital  converter  and  for  diagnostics.  U27  could  be  used 
to  extend  the  minor  frame  count  to  12  bits  during  the  "RAM  DUMP"  mode. 

The  count  could  be  used  for  identification  of  data  blocks  transmitted 
from  the  RAM. 

The  data  circuits  are  shown  in  Figure  14.  Two  of  the  16  channels 
of  the  digital  multiplexer  (U1-U8)  were  wired  to  produce  the  16  bit 
frame  synchronization  pattern.  Mass  spectrometer  data  (MS),  subframe 
identification  code  (S),  ADC  data  (AN  and  AN9-AN12)  and  the  ONE'S  COUNTER 
(BC)  data  occupied  additional  channels.  The  counter  was  used  to  deter¬ 
mine  the  number  of  ONE'S  within  the  minor  frame.  The  frame  synchroni¬ 
zation  words  and  the  count  it  self  were  excluded.  That  word  could  be 
utilized  as  an  indicator  of  transmission  errors  within  the  frame.  The 
other  9  channels  were  assigned  to  the  digital  data  buffered  by  U15-U26. 
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The  digital  data  from  the  12  bit  ADC  could  be  transmitted  as  the  8  MSB's 
only  or  as  the  full  12  bit  word  utilizing  the  4  MSB  of  the  adjacent  word 
in  the  PCM  pulse  train.  The  same  process  was  used  to  extend  the  range 
of  the  minor  frame  counter  during  the  "RAM  DUMP"  mode. 

The  ADC  converted  data  selected  by  the  multiplexer  (U9-U11).  Only 
few  of  the  analog  channels  were  used  to  monitor  mass  spectrometer  func¬ 
tions.  The  rest  were  assigned  to  other  instruments  of  the  scientific 
package.  A  4  pole  active  premodulation  filter  and  two  temperature  sen¬ 
sor  amplifiers  completed  the  data  conversion  package. 

D.  THE  CiROlIND  CONTROL  UNIT 

The  Ground  Control  Unit  (GCU)  was  developed  as  a  specialized  stand 
alone  command,  control,  communications  and  monitor  interface  between  the 
ooerator  and  the  ion  mass  spectrometer  during  development  and  laboratory 
testing.  During  the  airborne  operations  radio  links  to  and  from  the 
balloon  instrumentation  had  to  be  provided.  Interface  to  TTY  or  CRT 
terminals  also  were  included. 

Single  stroke  commands  entered  on  a  key  pad  were  presented,  upon 
request  from  the  airborne  unit,  to  the  serial  cotranand  transmitter  through 
an  RS232  interface.  Responses  from  the  flight  unit  were  received  either 
through  the  serial  down  link  or  through  the  PCM  data  stream.  The  via¬ 
bility  of  the  communication  link  was  checked  through  the  AGC  signal  from 
the  receiver. 

The  PCM  data  was  accepted  from  the  telemetry  receiver  and  demulti¬ 
plexed,  provided  the  clock  from  a  bit  synchroniser  was  also  available. 

Any  received  data  or  monitor  word  could  be  assigned  to  one  of  ten  DAC's 
or  to  any  one  of  four  digital  displays.  Outputs  were  provided  for  the 


-  24  - 


analog  signals  to  be  used  with  recorders  and/or  oscilloscopes.  Eight 
microammeters  were  also  provided  to  monitor  the  performance  of  the  mass 
spectrometer.  The  demultiplexed  data  was  available,  one  word  at  a  time, 
for  other  equipment.  Programming  of  the  demultiplexer  for  a  given  PCM 
format  and  output  channel  assignment  was  aided  by  prompting  words  or 
phrases  appearing  on  an  alphanumeric  16  segment  display. 

The  unit  was  contained  within  a  small  suitcase  type  instrument  box 
and  required  only  a  28  volt,  800mA  external  supply. 

The  circuits  of  the  GCU  may  conveniently  be  subdivided  into  three 
sections.  The  section  composed  of  the  8085  microprocessor  and  support¬ 
ing  circuits  controlled  the  unit;  USART's,  I/O  ports  and  DAC's  handled 
the  communications  and  data,  while  the  keypad  and  the  LED  displays  inter¬ 
faced  with  the  operator. 

The  control  section  is  shown  in  Figure  15.  The  EPROM's  Z.|.|  through 
stored  the  programs  to  control  the  operation  of  the  GCU.  The  lower 
byte  of  the  address  to  the  EPROM's  appearing  on  the  multiplexed  bus  of 
Z.|  was  stored  in  Z-jg.  A  4k  byte  RAM  was  formed  by  the  Ik  x  8  bit  static 
memory  chips  Zy  ■  ^10-  The  bus  line  AlO  in  conjunction  with  Z^i  selected 
the  appropriate  memory  circuits.  The  data  and  the  address  bus  lines  to 
a  temporary  memory  in  the  combinational/sequential  flight  control  cir¬ 
cuits  were  buffered  by  1-^y  and  Z.jg.  Strobes  were  provided  by  Z^g.  The 
temporary  memory  plug-in  unit  was  used  in  place  of  EPROMS  during  the 
development  and  laboratory  tests. 

The  communications  with  CRT  or  TTY  terminals  and  with  the  mass  spec¬ 
trometer  were  carried  through  USART's  Zg  and  Zg  respectively  shown  in 
Figure  16.  RS232C  interface  units  Z^^  and  Z^g  provided  the  necessary 
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signal  level  translation.  A  triple  16  bit  counter  chip  provided  the 
clock  and  timing  signals  for  the  two  communications  links.  Unit 
was  used  to  divide  the  8085  clock  frequency  by  two  to  accommodate  the 
slower  counter  chip. 

The  incoming  PCM  clock  and  data  were  processed  through  the  Schmitt 
trigger  buffers  Zg^  ?nd  the  serial  to  parallel  converter  Z^q.  Data  col¬ 
lected  in  that  register  was  transferred  onto  the  bus  through  the  port 
PA  of  ly  The  interrupt  for  the  data  transfer  was  generated  in  Z2g 
after  each  group  of  eight  clock  pulses.  It  signified  a  reception  of  an 
eight  bit  data  word.  Frame  detection  and  word  synchronization  was  done 
by  software.  A  word  synchronization  pulse  reset  Z^g  through  port  PC 
of  Zg.  Port  PB  was  used  to  present  the  received  PCM  data  word  to  any 
external  users.  A  strobe  signifying  the  availability  of  the  PCM  word 
was  generated  through  the  port  PC. 

The  data  was  placed  into  two  temporary  storage  sections  of  the  RAM. 
From  there  the  selected  data  words  were  transferred  into  the  DAC's  Zg^ 
through  Z^-j  or  into  the  digital  displays.  Selection  of  the  appropriate 
DAC  was  accomplished  through  Z22  and  the  Z2Q.  The  latter  also  served 
as  the  selection  of  the  I/O  ports. 

The  programmable  keyboard/display  interface  Z.|^  (Figure  17)  in  con¬ 
junction  with  the  4  to  16  line  decoder  Z^g  and  the  multiplexer/ demulti¬ 
plexer  Z^2  scanned  the  keyboard  and  controlled  the  seven  segment  LED 
displays  Z^g  through  Zgg.  The  eight  character  16  segment  alphanumeric 
display  was  controlled  through  a  latching  (Z-jg)  and  a  non-latching  (Z-jg) 
buffers  and  a  binary  to  octal  decoder  (Zgi).  The  16  bit  code  necessary 
to  display  one  character  were  stored  in  two  consecutive  locations  of  the 


EPROM  {T-j2^  •  addresses  of  the  characters  to  be  displayed  were 

stored  in  the  256  x  8  bit  RAM  ^nd  The  addressing  of  the  RAM 

for  updating  by  the  CPU  was  done  through  port  A  of  the  tri -state  latch 
Zy^.  Port  B  of  that  unit  addressed  t  ,e  RAM  when  update  of  the  alpha¬ 
numeric  display  was  required.  Counter  controlled  the  scanning  of 
the  display.  Octal  counter  Z^q  provided  the  strobe  signal  to  latch  the 
data  into  Z^g  and  advanced  the  RAM  address  counter  {Zg2).  The  fast 
strobe  pulses  (2us)  and  the  relatively  slow  (3ms)  display  period  for 
each  character  were  derived  through  the  circuit  of  Z^^  through  Zg^. 

The  status  of  the  entire  system  was  indicated  through  an  array  of 
eight  LED's.  The  PC  port  of  the  I/O  circuit  Z^  was  used  to  drive  the 
display.  The  two  remaining  ports  were  kept  as  spares  for  future  expan¬ 
sion  of  the  capability  of  the  GCU. 

E.  FLIGHT 

The  completed  electronic  package  was  delivered  to  AFGL  in  August, 
1981.  After  testing  and  integration  the  field  party  left  for  the  Balloon 
Launch  Range  at  Holloman  AFB,  New  Mexico  on  1  September  1981.  Contract 
personnel  were  not  included  in  the  field  party.  The  flight  took  place  on 
29  September  1981  and  was  not  considered  successful  from  the  standpoint 
of  gathering  scientific  data.  The  gondola  impacted  the  ground  before 
becoming  airborne,  vacuum  was  lost  during  part  of  the  ascent  and  the  data 
stream  terminated  as  a  result  of  an  apparent  power  failure.  A  complete 
analysis  is  not  available  at  this  time,  but  a  modified  unit  will  be  de¬ 
signed  and  constructed  under  follow-on  contract  F19628-81 -C-0162. 
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FLOW  CHARTS  OF  FLIGHT  UtJIT 

SYSTEM  FLOW  CHART 

The  flow  chart  depicts  the  sequence  of  events  controlled  by  the  balloon 
borne  MPU.  Initialization  leads  into  the  library  cycle.  After  detennining  the 
address  of  the  instruction  set  to  be  executed  during  the  next  data  gathering 
cycle  the  MPU  leaves  the  library  routine.  An  inquiry  is  sent  to  the  ground 
station  about  any  pending  messages.  When  a  message  exists  the  MPU  executes 
the  received  ocmnands.  Next  the  available  memory  space  is  conpared  with  the 
memory  space  needed  to  store  the  expected  data  in  the  upcaning  data  gathering 
cycle.  If  the  MPU  determines  tliat  insufficient  space  exists,  it  directs  the 
system  into  the  "RAM  DUMP"  cycle.  The  previoiasly  stored  data  is  trananitted 
through  the  PCM  link  and,  if  no  contradicting  catmands  are  received,  the  RAM 
is  cleared  for  the  new  data.  The  data  gathering  cycle  is  entered  vAiere  the 
previously  selected  instructions  from  the  library  or  any  new  instructions 
received  frcm  the  ground  control  unit  are  executed. 

LIBRARY  CYCLE 

The  address  of  the  preselected  or  ccmraanded  repertoire  is  stored  for 
reference.  In  absence  of  any  further  caimands  the  air-borne  control  unit  will 
remain  within  this  repertoire  indefinitely  executing  the  prearranged  program 
sequence.  The  repertoire  points  to  the  next  program  vihere  the  starting 
addresses  of  the  instruction  sets  are  listed.  Once  tlie  address  of  the  next 
instructioi  set  to  be  executed  is  determined  and  stored  the  MPU  leaves  the 


library  cycle. 


TTY  LINK 


First  an  inquiry  is  sent  to  the  ground  control  unit  for  a  message.  When  a 
message  is  available  it  is  r^jeated  3  times.  A  match  between  taiiD  oat  of  the 
three  sequences  is  accepted  as  an  errca:  free  transmissiai.  In  that  case  an 
echo  is  sent  through  the  PCM  to  the  'nrcajnd  station.  A  mismatch  in  all  three 
message  sequences  initiates  a  request  for  a  repeat.  If  the  catiainications 
link  fails  to  produce  an  acceptable  message  the  MPU  ranains  in  the  repeat  loc^ 
for  a  limited  time  before  returning  to  other  tasks. 

The  messages  may  contain  a  new  instructicn  set  to  be  executed  before  the 
one  selected  in  the  library  cycle.  It  also  may  contain  ccnmands  to  select  a 
new  instruction  set  or  a  program  within  any  of  the  repertoires  stored  in  the 
library.  The  transmission  of  the  data  stared  in  the  RAM  or  the  cotrand  to  save 
the  contents  of  the  RAM  after  a  trananission  are  executed  before  the  air-bome 
control  unit  returns  to  other  tasks. 

DATA  CYCLE 

The  data  cycle  is  entered  after  the  instruction  set  selected  in  the  library 
cycle  is  fetched.  Before  transaission  to  the  DAC's  the  selected  amu  control 
code  word  is  corrected  to  compensate  for  the  RF  frequency  drift.  The  correction 
process  may  be  disabled  by  a  switch  in  the  flight  caitrol  unit.  When  the 
expropriate  control  codes  are  latched  into  their  respective  DAC's  the  data 
gathering  interval  is  entered.  It's  determined  by  the  dwell  time  instruction. 
The  minimum  dwell  time  =  10ms  and  may  be  increrented  in  5tns  steps.  Once  the 
data  is  gathered  at  the  given  amu  level  it  may  be  corrrected  for  noise  induced 
errors.  The  adjustment  may  be  waved  fcy  a  ground  ccintnan4  car  autonatically 
ty  passed  if  the  ion  count  exceeds  800H. 

In  the  "ACCTMJLATE"  mode  the  mass  filter  repeatedly  scans  over  a  range  of 
amu  donains.  The  count  obtained  at  each  of  the  scan  increments  is  accumulated 


When  in  the  bias  switching  mode  the  biases  may  be  switched  or  swept  while 
the  arau  control  signals  are  kept  at  a  selected  level. 

When  finally  the  data  gathering  process  ends  and  the  real  time  data  has  been 
transmitted  the  data  stored  in  the  RAM  is  converted  into  coiants  per  second. 

INT  7.5 

The  request  for  this  interrupt'  and  the  subsequent  subroutine  originates  in 
the  PCM  systan.  The  routine  feeds  the  MS  and  -the  RAM  da-ta  to  the  PCM  encoder. 
Upon  request  the  MPU  places  a  data  byte  stored  in  the  PCM  buffer  onto  the 
MS-to-PCM  bus.  It  also  determines  the  sequence  in  vhich  the  various  MS  data 
bytes  are  transmitted.  Data  -transmission  frcm  the  RAM  is  also  con-trolled  by 
this  routine. 

FREQC. 

The  subroutine  determines  the  necessary  correction  factor  to  stabilize  the 
operation  of  the  MS.  It  calculates  the  multiplier  by  which  the  anplitude  of 
the  quadrvpole  excitation  signal  must  be  modified  to  conpensate  for  the  frequency' 
drift  of  the  RF  oscillator.  The  multiplier  ^^( Vf^)  ,  where  fo  is  ttie  ncminal 
frequency  and  f  is  the  actual  frequency  of  the  RF  oscillator.  Thus  V=M/o  where 
V  is  the  corrected  amplitude  and  Vo  is  the  ncminal  anplitude  for  a  given  AMU. 

A  switch  on  the  CPU  BOARD  disables  -this  operation  if  desired. 

STORE 

Stares  data  into  the  RAM.  Points  to  a  new  lcx:ation  for  data  storage. 

TRANSFR 

Transfers  the  control  data  to  an  appropriate  MS  control  part. 

BIASOT 

Transfers  the  5  bias  control  codes  to  their  respective  DAC's 
RECALL 

Retrieves  the  information  stored  in  the  RAM  for  transmission  tlirough  PCM. 
Points  to  the  next  data  byte. 


MAIN 


Finds  the  next  instruction  set  to  be  executed. 

DATOOL 

Executes  the  waiting  loop  during  the  MS  data  collection  interval.  Ihe 
dwell  time  at  a  given  amu  sb^  determines  the  waiting  period. 

WAIT 

Executes  the  waiting  loop  during  the  cadculation  carried  out  by  the 
arithmetic  unit  {AM9511) . 

NEG 

Informs  the  arithmetic  unit  that  that  data  in  TOS  (Top  of  Stack  in  the 
arithmetic  unit)  is  negative. 

STZERD 


This  routine  adjusts  the  8253  counter  input  for  a  proper  reception  of  the 
first  data  bit  from  the  FF  in  the  MS,  which  does  not  have  a  reset  line  leading 
to  it.  It  also  resets  the  first  negative  transition  detector  used  in  conjunction 
with  "QDRDftT"  subroutine. 

ENDING 

Ends  the  executiai  of  an  instrixAicn  set  ty  converting  the  data  collected 
and  stored  in  the  EAM  into  counts  per  second.  It  also  indicates  the  end  of 
real  time  data  transmission  for  that  interval  by  clearing  the  PCM  frame. 

ADDDAT 

Adds  newly  collected  data  to  the  previously  collected  data  when  in  the 
"ACaMULATE"  mode. 


BIAS 


This  subroutine  performs  bias  sweep  operaticai  with  the  AMU  sweep  kept 
constant  at  a  selected  level.  This  operation  may  also  be  performed  in  the 
"ACCUMUIATE"  mode.  For  that  purpose  the  starting  location  of  the  RAM  block 
assigned  to  store  the  data  is  noted  by  the  "SAVE  TM  END"  operation. 

OORDAT 

Corrects  the  data  count  stored  in  the  8253  counter  to  the  actual  count 
obtained  during  the  specified  dwell  time.  The  incaming  data  count  is  first 
divided  by  2  in  the  MS.  Also,  the  8253  does  not  respond  to  the  first  negative 
going  input  transition.  The  "STZERD"  subroutine  assures  that  the  iiput  to  the 
8253  is  at  ZERO  before  the  count  starts  and  also  resets  the  first  negative 
transition  detector.  "OORDAT"  uses  these  conditions  to  calculate  the  actual 
ion  count.  When  8253  shews  a  ZERO  count  and  the  transition  detector  is  RESET, 
vrtien  the  ooxant  is  either  ZERO  or  C*®  depending  on  the  status  of  the  data  line. 
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When  the  transition  detector  is  SET  then  the  count  is  2  or  3  again  depending 
in  the  stato  of  the  data  line.  When  the  8253  count  is  other  than  ZERO  than 
the  count  is  multiplied  by  2  and  2  or  3  are  added  depending  on  the  status 
of  the  data  line. 

AMU 


Controls  the  AMU  scan  defined  by  an  instruction  set.  Performs  correction 
on  the  arnu  control  word  to  coi^iensate  for  RF  frequency  drift  vAien  in  that  mode. 
Also  operates  in  the  "ACCUMULATE"  mode. 

OQLECT 


Collects  the  ion  count.  Checks  if  correction  for  noise  induced  errors 
is  warranted.  Performs  the  corrections  when  needed.  Store  the  data  with 
the  proper  amu  identification  and  the  instruction  set  in  the  RAM  for 
delayed  transmission. 

RUN 


Fetches  the  instruction  set  to  be  executed  and  store?  it  in  the  RAM.  The 
siabroutine  also  stores  the  starting  address  of  the  instruction  set  to  be  used 
as  program  identification  during  the  data  transmission  from  the  RAM.  The 
available  mema^  space  (in  the  RAM)  to  store  the  data  from  a  pending  execution 
of  an  instruction  set  is  calculated.  When  ins\afficient  space  exsists  the  "RAM 
DUMP"  process  is  executed.  When  the  expected  data  exceeds  the  total  capacity 
of  the  RAM,  the  instruction  set  is  disregarded.  If  the  memory  space  is 
sufficient  to  acoonmodate  the  data  a, 24  bit  syncli  word  is'  stored  in  the  RAM 
followed  by  the  22  byte  instruction  set  and  a  2  byte  program  ID.  Then  the 
control  words  are  sent  to  the  appropriate  DAC's  and  the  data  gathering  begins. 

PUMP 

Controls  the  transmission  of  data  from  the  RAM  to  the  PCM  syston. 

PACK 

Combines  two  bytes  into  one  16  bit  word. 

CNVRT. 

Converts  a  memory  block  of  adjacent  .ASCII  characters  into  the  binary  code 
acceptable  to  the  system.  The  code  is  stored  into  the  same  block  of  memory. 

RECEV. 

Receives  one  data  byte  from  the  GCU.  Checks  the  time  allocated  for  the 
comnunication  with  the  GCU.  Abandons  the  conmunications  attempt  when  the 
time  linit  is  reached. 
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TFNSMT. 


Determines  the  start  of  a  new  PCM  frame,  updates  the  TTY  buffer  location, 
sets  the  "TTY  ACTIVE"  flag  for  the  status  vrord  and  transfers  the  TTY  data 
into  the  ccmnunications  domlink. 


CMPDH 

Ccnpares  registers  HL  and  DE. 
If  HL  >bE  CY=1 


I  NITIALIZE 


GO  TO 
DATA 

CYCLE 


57 


OP-CODE 
TO  PCM 


1  RST 

1  VALII 
1  TTY  t 

)ATA 

AND 

ACTIVE 

BYTE 

CNT  =  1 

1 

V 

GET 

BYTE 

_ 

TM 

CNT 

ADD  BYTE 
CNT  TO  TM 
POINTER 


GET  DATA. 
OUTPUT 

TO  PCM 

BYTE 

CNT  I 

1  BYTE  CNT+1 

J 

[“"RECALL" 
DATA 


"INT  7.5"  SUBROUTINE  FLOW  DIAGRAM 
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BEGIN 


FLOW  DIAGRAMS 


FLOW  DIAGRAM 


FLOW  DIAGRAMS 


BEGIN 


FLOW  DIAGRAMS 
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LOOP  X 
COUHT-0  "^'JL 
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"COLLECT" 
FLOW  DIAGRAM 


B 


C 


"COLLECT" 
FLOW  DIAGRAM 
(CONT . ) 
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DATA  PAIRS  = 
NEW  RANGE  X  4 


BEGIN 


"RUN"  PLOW  DIAGRAM 
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RAM  AVAILABLE  = 
MAX  -  FILLED 


B 


RUN"  FLOW  DIAGRAM  (CONT.) 
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UNCLASSIFIED 


10  SEC 
PAST 


PUT  FIRST  BYTE 
INTO  HIGH  LOCATION 


PUT  SECOND  BYTE 
INTO  LOW  LOCATION 


SET  RAM  DUMP 
REQUEST  TO  PCM 
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DUMP  ACKN. 


CLEAR  TM  FRAME 
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BEGIN 


RECEV 


TYPE:  INTERUPT. 


ENTER:  NO  CONDITIONS. 

RETURN:  REGISTER  CONTENTS  NOT  AFFECTED. 

COWffiNT:  INTERUPT  VECTOR  INT7.5  MUST  BE  SET  AND  INTERUPTS  MUST 
BE  ENABLED. 

mmORJ:  S02F:  STATUS  WORD. 

S02E:  TM  BYTE  COUNT. 

I/O  ports:  5B  ;  "FIRST  FRAME" :FLAG  STATUS. 

44  :  TM  PORT. 

59  :  "FIRST  FRAME"  FLAG  RESET. 

MAIN 


TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 


RETURN: 

CONTENTS  OF  ALL  REGISTERS  AFFECTED. 

liTBmY: 

8025 -6  ;  TEf;lP.  STORAGE  OF  PROGRAM  POINTER 

8027-8  ;  PROGRAM  POINTER. 

8029-A  ;  INSTRUCTION  SET  POINTER. 

8065  :  "ALL  COMh^AND  FUNCTION"  FLAG. 

FREOC 

TYPE:  S 

UBROUTINE . 

ENTER: 

NO  CONDITIONS. 

RETURN: 

ACC  &  FLAGS  AFFECTED. 

>i!EMORY: 

8020  :  THE  TIME  TO  CALL  FREQC  AGAIN. 

805A-805D  ;  FREQUENCY  CORRECTION  FACTOR. 

I/O  PORTS:  64  ;  FREO.  COUNTER. 

54  :  ARITHMETIC  UNIT. 

59  ;  START  PULSE  FOR  FREO.  COUNTER. 


TRNSFR 


TYPE:  SUBROUTINE. 

ENTER:  ACC  CONTAINS  DATA  TO  BE  OUTPUTED  TO  BUS. 

B  CONTAINS  ADDRESS  WHERE  MS  BUS  DATA  IS  TO  BE  SENT. 

RETURN:  ACC-CLEARED,  CY=0,  AC=0,  Z=l,  S=0,  P=l. 

I/O  PORTS:  40  ;  MS  BUS. 

50  :  MS  ADDRESS. 


BIASOT 


TYPE:  SUBROUTINE. 

ENTER:  E  CONTAINS  DATA  FOR  BIASl. 

D  CONTAINS  DATA  FRO  BIAS2. 

L  CONTAINS  DATA  FOR  BIAS3. 

H  CONTAINS  DATA  FOR  BIAS4. 

C  CONTAINS  DATA  FOR  BIAS5. 

RETURN;  ACC-CLEARED 

B  -CONTAINS  ADDRESS  OF  BIAS5. 
CY=AC  =  S  =  0. 

Z  =  P  =  1. 


RECALL 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ACC  CONTAINS  DATA  FROM  DUMP  BUFFER. 

HL  CONTAINS  NEXT  DUMP  BUFFER  LOCATION. 

FLAGS  AFFECTED. 

mORY:  8023-4  -.CONTAINS  BEGINNING  OF  DUMP  BUFFER  ADDRESS. 
8021-2  ; CONTAINS  END  OF  DUMP  BUFFER  ADDRESS. 


vSTORE 

TYPE:  SUBROUTINE. 

ENTER:  ACC  CONTAINS  DATA  TO  BE  STORED  IN  DWilP  BUFFER. 

RETURN;  REGISTER  CONTENTS  NOT  AFFECTED. 

imORY’.  8021-2  : LOCATION  OF  DU:>IP  BUF.'’ER  POINTER. 

8100-MAX  imORY:  DUMP  BUFFER. 
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WAIT 


WE:  nUBKOlfTTN]'.’. 

ENTER:  ACC  CONTAINS  A  COMMAND  TO  ARITHMETIC  UNIT. 

RETURN:  ACC  AFFECTED. 

CY-0 

I/O  PORTS:  55  ;ARITratETTC  UNIT. 

COLECT 


TYPE;  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ACC  CONTAINS  LOOP  COUNTER  COUNT. 

HL  CONTAINS  LAST  TM  FRAME  ADDRESS. 

CONTENTS  OF  OTHER  REGISTERS  ALSO  AFFECTED 

MEMORY;  S020 
S009 
SOIC-D 
8021-2 
802F-3B 
802E 
8016-7 
8005-6 
8007 

I/O  PORTS:  63 

61 
5A 
50 

DATCOL 

TYPE:  SUBROUTINE. 

ENTER;  NO  CONDITIONS. 

RETURN:  ACC  AFFECTED,  7.=0,  P=n  ,  CY=0,  AC=0,  S=0. 
I/O  PORTS:  5B  :DATA  COUNTER  ENABLE  MONITOR 


"DOWN  COUNT"  FLAG. 
INSTRUCTION  SET  MODE. 
PRESENT  AMU. 

END  OF  DW<P  BUFFER  ADDRESS. 
DATA  FOR  PCM. 

TU  BYTE  COUNTER. 

ID 

DWELL  TIME. 

RATIO  (LOW  BYTE). 


:COMMANaS  FOR  DATA  COUNTER. 
;DATA  COUNTER. 

;"N0  DOWN"  FLAG. 

; "START  COLLECTION"  PULSE. 
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STZERO 

TYPE;  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  PSW  AFFECTED. 

I/O  PORTS:  5B  ;MS  DATA  INPUT  MONITOR. 

59  ;]i/lS  DATA  INPUT  COHdPLIMENTFR . 


CORDAT 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  HL  CONTAINS  DATA  FROM  MS  DATA  COUNTER. 
PSW  AFFECTED. 

I/O  PORTS:  5B  ;MS  INPUT  MONITOR. 

TTYLNK 


TYPE:  SUBROUTINE. 


ENTER:  NO  CONDITIONS. 


RETURN:  PSW.  DE.  and  BC  AFFECTED. 


MEMORY:  5800-58C8 
8065 
8025-6 
8027-8 
8029-A 
8067 
802E 
8000-17 

I/O  PORTS:  69 
65 
68 


PACK 

TYPE:  SUBROUTINE. 


TTY  BUFFERS. 

"LIMTED  COIilMAND"  FLAG. 
REPERTOIRE  POINTER. 

TEMP.  REPERTOIRE  POINTER. 
INSTRUCTION  SET  POINTER. 
"WAIT"  FLAG. 

TM  BYTE  COUNTER. 

INSTRUCTION  SET  PARAMETERS. 

USART  COMMAND. 

"TIME-OUT"  TIMER. 

USART. 


ENTER:  NO  CONDITIONS. 


RETURN:  HL  CONTAINS  PACKED  DATA. 

ACC  AFFECTED. 

liIEMORY:  5802  ;HI  BYTE  ADDRESS. 

5803  ;L0  BYTE  ADDRESS. 
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TYPE :  SUBROUTINE . 


ENTER:  CY=1 . 

ACC  SHIFTED  LEFT  BY  ONE  WHEN  COMPARED  TO  H. 
HL  CONTAINS  DATA. 

RETURN:  HL  CONTAINS  POSITIVE  DATA. 

ACC  AFFECTED. 

CY=0. 


BIAS 


TYPE:  SUBROUTINE. 


ENTER:  NO  CONDITIONS. 


RETURN:  ALL  REGISTERS  AFFECTED. 


ME^^ORY:  8021-2 
8057-8 
8000-1 
801C-D 
805A-D 
800A-E 
803F-43 
8014 
800F-] 3 
8004 
8009 


:END  OF  RAM  DUMP  BUFFER. 

:TEMP  STORAGE  OF  END  OF  RAM  DUMP  BUFFER. 
; STARTING  AMU  NUMBER. 

;TEMP  STORAGE  OF  STARTING  AMU  NUMBER. 
;FREQ.  CORRECTION  FACTOR. 

.•PRIMARY  BIASES. 

;TEMP.  STORAGE  OF  PRIMARY  BIASES. 

;BIAS  MASK. 

: SECONDARY  BIASES. 

•.CONTENTS  OF  LOOP  COUNTER. 

:MODE  OF  INSTRUCTION  SET. 


I/O  PORTS:  54 

50 


; ARITHMETIC  UNIT. 

; START  OF  COLLECTION  PULSE. 


ADDDAT 

TYPE:  SUBROUTINE. 


ENTER:  HL  CONTAINS  DATA,  .SIGNED  MAGNITUDE. 

DE  CONTAINS  DATA,  SIGNED  MAGNITUDE. 

RETURN:  HL  =  HL+DE,  SIGNED  MAGNITUDE. 


TYPE:  SUBROUTINE. 


ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 

MEMORY:  8021-2  ;END  OF  RAM  DUMP  BUFFER. 

8057-8  ;TEMP.  STORAGE  OF  END  OF  RAM  DUMP  BUFFER. 
8000-1  ; STARTING  Am  NUMBER. 

802B-C  ;TEMP.  STORAGE  OF  STARTING  AMU  NUMBER. 

805A-D  ;FREO.  CORRECTION  FACTOR. 

801C-D  ;TEMP.  STORAGE  OF  PRESENT  AMU  NW©ER. 

8015  ;STEP  VALUE. 

803D-E  ;TEMP.  STORAGE  OF  NEXT  AJ1U  NUMBER,  CORRECTED. 
8020  ;THE  TIME  TO  CALL  "FREOC"  AGAIN. 

8009  ;  MODE  OF  INSTRUCTION  SET . 

800A-13  ;PRI^/IARY  AND  SECONDARY  BIASES. 

8002-3  ; FINAL  AJ.-IU  NUMBER. 

8004  ;NmiBER  OF  TBffiS  TO  LOOP. 

I/O  PORTS:  54  jARITHUtETIC  UNIT. 

63  ;REAL  TIME  COUNTER  CO^ilMAND. 

62  ;RrJ\.T  TIME  COUNTER. 

50  ; START  OF  COLLECTION  PULSE. 

ENDING 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 

MEMORY:  802E  ;TM  BYTE  COUNT. 

802F-3B  ;PCM  FRAME  DATA. 

8005-6  ; DWELL  TIME. 

8057-8  ;TEMP.  STORAGE  OF  END  OF  RAJA  DUMP  BUFFER. 

8009  ;MODE  OF  INSTRUCTION  SET. 

8059  ;TEMP.  LOOP  COUNT  COUNTER. 

8021-2  ;END  OF  RAM  Dim^  BUFFER. 


I/O  PORTS:  54 


; ARITHMETIC  UNIT. 


TYPE:  SUBROUTINE. 

ENTER:  DE  ANB  HL  VALUES  TO  BE  COflPARED. 
RETURN:  ACC  EFFECTED. 


CY-1, 

Z-O 

HL  > 

DE. 

CY=n, 

Z-O 

HL  < 

DE. 

CY=0, 

Z=I 

HL  - 

DE. 

REST  OF  FLAGS  AFFECTED. 

DUAtP 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  REGISTER  CONTENTS  AFFECTED. 

m/rORY:  802F  :PCf^  STATUS  WORD. 

ROSE  :TM  BYTE  COUNT. 
a030-3C  ;MS  FRAME  DATA. 

8065  ;"LIl''fITED  COMK-IAND  FUNCTION"  FLAG. 
8061-2  .-CONTAINS  f^AX  imORY  ADDRESS. 
8^00-^'[AX  MEMORY;  DUMP  BUFFER. 

I/O  PORTS  65  : "TIME-OUT"  TIMER. 

5B  ; "TIME-OUT"  FLAG  . 

59  DTOP  REQUEST"  FLAG. 

RUN 


TYPE:  SUBROUTINE. 

ENTER:  HL  CONTAINS  BEGINNING  OF  THE  INSTRUCTION  SET  TO  BE  RUN 
RETURN:  AI.L  REGISTERS  AFFECTED. 


MEMORY: 


(HL)  -  [(HL)  +15] 

8000-17 

8061-2 

8059 

6000 


INSTRUCTION  SET  TO  BE  RUN. 
INvSTRUCTION  SET  BEING  RUN. 

CONTAINS  ADDRESS  OF  MAX  DUMP  BUFFER 
TEMPORARY  LOOP  COUNTER  STORAGE. 
DWELL  TIME  TIMER. 


I/O  PORTS:  63 
62 


;CONMAND  FOR  REAL  TIME  COUNTER 
;REAL  TBP  COUNTER. 


CNVRT 


TYPE:  SUBROUTINE. 

ENTER:  HL  CONTAINS  STARTING  ADDRESS  OF  CONVERSION. 
DE  CONTAINS  END  ADDRESS  OF  CONVERSION. 

RETURN:  DE,  B,  and  PSW  AFFECTED. 

TRNSMT 

TYPE:  SUBROUTINE. 

ENTER:  ACC  CONTAINS  THE  BYTE  TO  BE  TRANSMITTED. 

RETURN:  FLAGS  AFFECTED. 

MEMORY:  802E  ;TM  BYTE  COUNTER 

802F  ; STATUS  BYTE. 

8037  ;TTY  DOWN  LINK  LOCATION. 

I/O  PORTS:  69  ;USART  COMMAND. 

68  ;USART  ‘ 

RECEV 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ACC  CONTAINS  RECEIVED  CHARACTERS,  IF  CY=0 
CY=1  IF  TIME-OUT  OCCURRED. 

CY=0  IF  ACC  IS  OK. 

REST  OF  FLAGS  ALSO  AFFECTED. 

I/O  PORTS:  5B  ;"TIME  OUT"  FLAG. 

69  ;USART  COMMAND. 

68  ;USART. 


FLAGS 


8065  "LIMITED  COMMANDS  ONLY"  FLAG. 

IF  TTY  LNK  IS  USED  AND  THIS  FLAG  IS  SET  THEN  ONLY  THE  COMMAND 
"DUMP",  "WAIT"  AND  "CONTINUE"  ARE  ENABLED. 

8067  "WAIT"  FLAG. 

IF  THIS  FLAG  IS  SET,  THEN  THE  LAST  COMMAND  WAS  A  "WAIT"  COMMAND. 


5800-5842 

5843-5885 

5886058C8 

58C9-58FF 

8000 

8001 

8002 

8003 

8004 

8005 

8006 

8007 

8008 
8009 

800A-8013 

8014 

8015 

8016-8017 
801 8-801 B 
801C-801D 
801 E 

8021-8022 

8023-8024 

8025-8026 

8027-8028 

8029- 802A 
802B-802C 
802D 
802E 
802F 

8030- 8031 
8032-8033 
8034-8035 

8036 

8037 

8038-8039 

803A 


UP  LINK  BUFFER  #1. 

UP  LINK  BUFFER  #2. 

UP  LINK  BUFFER  #3. 

STACK. 

INITIAL  AMU  LOW  BYTE. 

INITIAL  AMU  HIGH  BYTE 
FINAL  AMU  LOW  BYTE 
FINAL  AMU  HIGH  BYTE. 

NUMBER  OF  TIMES  IN  LOOP. 

DWELL  TIME  LOW  BYTE. 

DWELL  TIME  HIGH  BYTE. 

RATION  LOW  BYTE. 

RATIO  HIGH  BYTE. 

MODE. 

PRIMARY  AND  SECONDARY  BIASES. 

BIAS  SWEEP  MASK. 

STEPPING  VALUE. 

PROGRAM  ID. 

SPARE. 

PRESENT  AMU. 

FREQUENCY  UPDATE  TIME. 

TMEND. 

TMBGN. 

REPERTOIRE  POINTER. 

REPERTOIRE  POINTER  BUFFER. 

PROGRAM  POINTER. 

ORIGINAL  AMU  BUFFER. 

"NO  DOWN  COUNT"  FLAG. 

TM  WORD  COUNTER. 

STATUS  OF  INSTRUCTIN  SET  BEING  RUN. 
ID  OF  INSTRUCTION  SET  BEING  RUN. 
DATA  OF  AMU. 

DWELL  TIME  OF  INSTRUCTION  SET. 

RATIO  OF  INSTRUCTION  SET  BEING  RUN. 
TTY  DOWN  LINK  DATA. 

AMU  BEING  DETECTED. 

MODE  OF  INSTRUCTION  SET  BEING  RUN. 
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803B 

LOOP  COUNTER  OF  INSTRUCTION  SET. 

803C 

SPARE. 

803D-803E 

NEXT  CORRECTED  AMU. 

803F-8043 

ORIGINAL  PRIMARY  BIASES. 

8044-8045 

SPARES. 

8046-8056 

SPARES. 

8057-8058 

TMEND  AT  START  OF  A  INSTRUCTION  SET. 

8059 

ORIGINAL  LOOP  COUNTER  OF  INSTRUCTION  SET  BEING  RUN 

805A-805D 

FREQUENCY  CORRECTION  FACTOR  (MSB  OF  MSW  FIRST). 

805E-8060 

SPARE. 

8061-8062 

MAXIMUM  MEMORY  LOCATION. 

8063-8064 

SPARE. 

8065 

"LIMITED  COMMAND  ONLY"  FLAG. 

8066 

SPARE. 

8067 

"WAIT""FLAG 

8068-80FF 

SPARE. 

8100-MAX  MEMORY  RAM  DUMP  DATA. 

EPROM 

OOOO-OFFF 

SYSTEM  PROGRAMS. 

1 000-1 FFF 

REPERTOIRES.  PROGRAMS,  INSTRUCTION  SETS. 

I/O  PORTS 

40 

MS  DATA  BUS. 

44 

PCM  DATA  BUS. 

50 

STROBES  AND  START  PULSE. 

54 

ARITHMETIC  PROCESSOR. 

55 

COMMAND  FOR  ARITHMETIC  PROCESSOR. 

58 

COMMAND  FOR  THE  5  PORTS  IN  59,  5A,  5B,  5C  and  5D 

59 

FUNCTION  FLAGS. 

5A 

SPARE 

5B 

MONITORS. 

5C 

LOW  BYTE  OF  USART  CLOCK. 

5D 

HIGH  BYTE  OF  USART  CLOCK. 

60 

DWELL  TIMER. 

61 

DATA  COUNTER. 

62 

FLIGHT  TIMER. 

63 

COMMAND  FOR  THE  3  PORTS  IN  60,  61  and  62. 

64 

FREQUENCY  CORRECTION  COUNTER. 

65 

SPARE. 

66 

SPARE. 

67 

COMMAND  FOR  THE  3  PORTS  IN  64,  65  and  66. 

cJvii'Li-: 

"1-l.Pl  l  Pi<OGi<Ar'i  MOW  BiilM;:  Mil'PTUM  AY  JTM  .vAMLEV" 

C,  LObAL 

Ti'i  i.  YT  2 ,  t  l<l'i  ]  ,  1  \i 

■i'MbYV 

1 

EC'U 

OEii  ;.SET  NUHhEH  Ot  BYTES  IM  Ti-i  fRAl'iE 

T-'ll'YT 

i 

SKT 

TMBYTl-lU 

'iVlLY'i' 

2 

TMi,YT? 

i  /r 

Ti-iBYT'PiEHiU 

CLC.bAL 

0/11 

o  A  L 

VTVLEK 

Cj  L  C  i  \  L 

C.-a'iJi! 

GLOcJ  AI. 

lUJM 

GLOriAL 

EU.-i  P 

S GCTIGN 

t-  T.rOil'i 

SV[ 

A,(;EY,i  ;S'i’ART  REAL  TIME  CLOCK 

OUT 

mIU 

vJ'lP 

BEOIM  ;JU-lP  TO  CONTINUE 

MOP 

RL'll 

B  Y'i'  i'. 

!),  (i,  (i,  0,  U,  C,  (•;,  P 

BYTE 

1, ,  0,  (I,  (1, 0, 0, 0,  n 

'-<S'r 

!i  YT  E 

f' ,  0 ,  ,  0 ,  ,  0 , 0 , 0 

!<S'i 

B  YT 

(.,(i,n,o 

li  Ii'i 

p 

iir.Of'JT  .-Tills  IS  HF  RESET  AND  REINITIALIZ  ES  ALL 

HUT  REAL  TT'-iE 

BYTE 

0 ,  (i ,  0  ,  (' 

i  i’i'i'  ii . 

t 

b  Y'i'  1 ' 

0,  (;,(),(; 

iu;-;'''. 

bY'I'  E 

0, p, n 

t  ;MT 

lUTK 

(;,(), 0,0 

Hi/i'l 

ti  YT  E 

0,0, 0,0 

I.\T7. 

5 

PUSiJ 

PS'.v  ;****THIS  I  NT  OUTPUTS  DATA  TO  TM 

■fi'; 

Si^il  ;IS  THIS  THE  FIRST  FRAME? 

P'JUli 

M 

PUG  ii 

PU  Jii 

rj 

AKI 

(■  ‘i  1  i 

JNX 

Cy  ;.TJMP  IF  IT  IS  THE  FIRST  FRAME 

LDA 

‘'OPEE  ;GET  STATUS  V'iORE  ANP  CiiECK  FOR  BURST 

FL/iG 

/.  !■;  J 

,1  (lU 

J.-'i/ 

GIO  .-JUMP  IF  BURST  FLAG  IS  SET 

LU/\ 

'10 /Ell  ;GET  'EM  EYTE  COUNT 

Cl-1 

T'.-l  L  Y'l'  1 

,)NC 

Gl]  ;JU.'IP  IF  THIS  IS  THE  Ly\ST  FRAME 

PO  1< 

A  ;IISE  FRAME  COUNTER  TO  GET  NEXT  BYTE  OUT 

LXl 

!1,P02F1I  ;LOAD  -UL-  WITH  POINTER 

•'’■CV 

E  ,  /  ■. 

.•i  V  1 

0,  00 11 

!;.A  i. 

0  ;ADD  POINTER  TO  FRAME  COUNTER 

.•>1CV 

A,M  ;GET  TliE  BYTE  POINTED  TO  BY  -H  L- 

OUT 

Z,Zil  ;  OUT  PUT  TO  TM 

I.U,\ 

P02EH  , -AGAIN  GET  TM  FiYTE  CCJiI'i 

i  M.< 

A  ;1NC  EYTE  CCnTEK 

c;  1  r 

U  I'A 

00201.  ;STOIU.  BYTE  COUNTER 
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c  1 3 

l^OP 

LJ 

POP 

U 

POP 

A 

POP 

PS 'A 

El 

RET 

(Jll 

EL'A 

P0  2FH 

;Gi:T  STATUS 

CUT 

A  An 

.•OUTPUT  TO  TM 

AN  I 

7011 

.•HllMOVE  PATA  VALJC  AND  TTV  AC'jlVE  tLAC 

ETm 

P0  2r'li 

; STORE  STATUS 

MVi 

A,  niii 

;SE'i'  ElxAMi:  COUNTER  10  1 

.IMP 

G12 

Gin 

CALL 

H  EC  A  L  L 

.•DUMPING  RAM  SO  GET  liYTE  I'RCM  PURR’. 

SUi-T'  1, 

OUT 

^  AH 

JC 

G13 

.•JUMP  IP  MOT  THE  LAST  BURST  DATA 

y.vi 

A,  non 

.•RESET  ALL  FLAGS  IN  STA'l'CS 

STA 

a0  2EH 

.-STOKE  STATUS 

P 

C]  3 

G9 

IN 

soil 

.•RESET  FIRST  FRAME  FLAG 

AMI 

OFLil 

OUT 

b9H 

OR  I 

02;l 

OUT 

5911 

MVI 

A,  02ti 

;SET  FRAME  COUNTER  TO  ? 

STA 

B0  2Eli 

.•STORE  FRAME  COUNTER 

LDA 

8U2Eil 

.•GET  STATUS 

OUT 

AAH 

J!>1P 

Gil 

t’UECC 

IN 

5Ali 

.•****calculatt:  frec  ccrrectjc-:  kacior 

AMI 

0211 

HZ 

PUSH 

11 

VI  ov 

A ,  M 

.•GET  UPDATE  TIME  AND  ADD  7  TO  IT 

INK 

A 

;NOiV  WAIT  7  SECONDS  AFTi.R  LEAVING  TO 

UPDA'IA  ACAJ 

AMI 

(17.1 

y  OV 

M,  A 

IN 

A^ill 

.•GET  DATA  FROM  RF  livEC  COUNTER 

CM  A 

STA 

no  3CH 

.•STORE  IN  TM  1- RAM  E 

GUT 

bvlll 

; OUT PUT  TO  TOS  01  0511 

i  N 

GA:l 

CM  A 

STA 

roiDH 

; STOKE  IM  Ti .  1  RAM  E 

CUT 

5^511 

.•output  TO  TOS  OF  751  1 

■•iVI 

A,  ()'■ -.1 

;l  REC  CCRR=  (l  O/I- 1 )  **2  .  11  IS  K’-'Cv;'  L  I 

'AAS  J.IST  GC'LEEC'iL 

OUT 

^'Vlll 

XRA 

A 

OUT 

54H 

M  V  [ 

A,  ICll 

.•CONVERT  TOS  T'O  l■'LOAT  I^'G  PC  I N 
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i, '  A  L  L 

/■.  1 1 

Xt<A 

j\ 

.•riO'N  OUTPUT  FO  TO  'iOS 

uUl' 

‘.Mil 

i'l  V I 

l\  ,  ^  7 ;  1 

'JUT 

S/lli 

J  V I 

/^,  :'Ai! 

OU'l' 

S^ll 

Vi 

1/!m 

OU'l' 

J/lti 

•IVI 

,  1  Jii 

;01VIUfc;  KO  BY  K1 

CALL 

A  A  rT 

.‘1 V  [ 

A,  i  Til 

;SnUAKr  KO/FT 

CALL 

A  A  TT 

M  V  [ 

A,  IP.i 

CALL 

A  A  i  i' 

LX  I 

i;, 

;GCT  FHLO  COUi<  AMIT  UTOUG  FCK  UUh  IN 

ii'; 

'aiiH 

■^lAIt.;  Pl<  OGHAM 

'•1  ,  A 

LAX 

A 

lA 

‘■Mil 

L‘l  0  V 

.>.,A 

I/.'X 

;i 

JlJ 

5^11 

MOV 

•1 ,  A 

lr';x 

,1 

i[. 

5;  MU 

X.C'V 

A 

11. 

bVil 

/OUTPUT  A  START  PULSL  TO  FRKO  CCUNTLH 

OH  I 

n/'ii 

OUT 

A  1 

OK  HU 

O'J'i' 

bJil 

TJL 

iucr 

.'IVI 

A,  (T  l'l: 

;****Ii';TTrALI'ZATION  STARTi:  liKRE  IF 

(UC 

‘'.211 

SYS'JlT'l  A  a;:  RGf.GT 
;LOAL'  HFAL  TIME  CLOCK  WITH  IS 

O'J'i 

A'2ii 

COOPLIOFNT  Cf'On 

OVT 

A,  f:ci;ii 

;Sl'.T  iMODG  OF  US  ART 

OUT 

r-<'d 

.•1 V  I 

t\ ,  2  7 1 1 

;;>LT  CT>iiiAMl)  OF  USA.KT 

OU'i 

^'0:1 

LX[ 

SH,  b'jOOl 

;  ****IHITILI/:ATI0N  STARTS  ilGRG  IF 

NVI 

i\  ,  OC  ]  u 

TRAPS  Ti 

/Si;!  PISA  TO  PA  AS  OUTPUT  AND  PB  PC  A; 

OUT 

INPUTS 

Mv: 

A,  K(M 

;SLT  US  ARTS  CI.OCK  TO  30  0  BAUP 

\j  U'i’ 

bCil 

I'lVl 

A,  /.2(1 
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OUT 

5DH 

MVI 

A,  7A'l 

OUT 

MVI 

A,  f-FFli 

OUT 

<^ltl 

OUT 

A  111 

MVl 

A,  3A;i 

JUT 

A7m 

I'lVI 

A,  r I'Eh 

JUT 

Aaj, 

OUT 

i'lVI 

GIM 

El 

A ,  (jii  h 

MVI 

A,  lAll 

OUT 

5911 

■•IVI 

A,  J:1!1 

OUT 

GO.l 

XRA 

A 

GTA 

cur,7;i 

■IVI 

A,  POH 

OUT 

^.Oil 

XUA 

A 

CUT 

4411 

OUT 

')0U 

INK 

A 

CIT 

y.iiii 

JNZ 

GA/; 

XHA 

A 

OtJT 

'-•Oil 

Mvr 

A,  7  011 

OUT 

0711 

I'lVI 

A,  /lOM 

OUT 

oyii 

!V|VI 

A,  OCEil 

OUT 

r-y.i 

MVI 

A,  3711 

OUT 

r.‘J;l 

LXI 

H,  nio'iii 

^.ELO 

ro?]ii 

Gi!LD 

P0  2  3U 

i:'x 

!l 

I'lVI 

••1,  COii 

MOV 

A ,  I'l 

ORA 

A 

JMZ 

I’i  V I 

M  ,  Obfl, 

M  OV 

A  ,  I'  l 

I  NR 

A 

A  ,  (jii  h  ;  TURN  OW  I  NT  EK  U  Fi’  7  .  5 

A,  lAll 

59Ii  ;lS'fl'lLIZh  PA 

A,  J:>!1 

A  ;REEET  WAIT  FLAG 

cur,7;i 

A,  POU 

;RESET  ALL  DACL  ANO  'M  PGKT 


1  1 1  '1 

(M  r'.'Jl'l'iiv 


jDETEiTl  INK  LA.'I  TilAT  I:;  /  VArLAHLi-: 
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J/, 

DCX 

Lxi  u,;;v{)Oi! 

CALL  Ci-iLOll 

CC  r 

;lL'r 

;iiAVK  MAX  ADDHESi-  CjF  HEMUKY 
LXI  il,rt)2Lh  ;MOW  CLLAU  EGME  v,t;MOUY 

X  i !  \  i  \ 

'"  UV  ■!  ,  A 

ICX  11 

«1(V  ^,L 

CFl  f'A 

JviZ  CS7 

call  ;K''JW  LUMP  TliF  TKi  HUFF  EH  THTG  TM  DOKE  TO 

CLEAR  aUL'FLU 

Lxr  ;;'.L’T  the  FREC  CORK  FACTOii  TC  ) 

•iVi  1-1,0111 

IPX  :i 

i-'VL  -i,co;i 

I  MX  .1 

.■•iVl 

IMX  K 

Mvr  rnoo;! 

1'IP  MAIN  ;CTART  TliE  MAIN  PliOC.WAM 

HE  PUCll  H  ;****STOUEfI  DATA  INTO  TM  HUFFF.H 

LULI'  .:’021ii  ;GET  LOCATION  OF  NEXT  BUFFER  LOCATION 

“UiV  M,A 

INX  U  ;F0INT  TO  NEXT  LOCATION 

SOLD  80 2  111  ;NOW  DTORE  ADDRESS 

PO  P  a 

KLT 

::fr  cut  xoa 

MOV  />,f 

OUT  soil 

XiiA  A 

■JUT  i3o:i 

RE'i' 

iiv/'j  -I  wV  /i ,  E 

.‘ivt  11,  ova 

CAl.L  I’RI'NFR 

'•l.v  N,D 

i  .  Li 

0/ I  L  Ti.MSFe 

■!i'V  .'.,L 

i"i,  i 

C.'iL!  iN<i'IOFl. 

'•I'V  \,li 

J,''-;  -i 


;****OUTf»UTS  BIASES  TO  LACS 

;bl  IS  IN  -E-,b2  IN  IN  -L-,L:<  IN 

IN  -C- 

;-B-  LOADED  WITH  PORT  NU'-.bER  OF  e  IkST 

DAC 


;****-ACC-  GETS  OUTP'JTED  TO  PORT 

DEFINED  IN  -B- 
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CALL 

VKMSFK 

J«i  QV 

A,C 

IMU 

CALL 

I’KMit'  H 

KLT 

UKCALL 

LH  LD 

;****'Jc;i’S  DATA  OUT  OF  'l‘M  lUJFFKl; 

XChG 

;PUT  TViKHn  INTO  -llL',A'v!U  TMUGn'  INTO 

LHLD 

Sli?  lii 

CALL 

CMPDii 

;IS  TMUND  LOUAL  TO  TMLCN? 

JMC 

G1 

;.7UMP  IF  IT  IS 

XC  HG 

MOV 

A,  M 

;GliT  DATA  OUT  OF  H'lFb  l.U 

INX 

h 

SHLD 

GOP  3)1 

; STORK  TMBGN 

UHT 

Cl 

LXI 

H,  !>1  0011 

;SET  TMEND  AMD  TMUGN  TO  FIRST  TM  UOFi  rl. 

LOG /.Tier-: 

CULL 

30  2  111 

LULr 

HOP.lil 

ULT 

MOV 

A,L: 

;  ****COMPAUt:  -DK-  ARU  -liL- 

CMP 

ii 

;IF  -HL-X-DK-  CY=I 

KNZ 

;IF  -HL-<=-Dt:-  CY=0 

MOV 

A,  L 

;IF  -HL-=-Dl-:-  ■/.=] 

CMP 

L 

KLT 

MAIM 

LXI 

h, IFOOM 

;****GETti  A  PACK  i-noM  HOOK  I’KOO  Sjii:LF 

SHLD 

BO  2  511 

G3 

LULD 

P0  2  5U 

SHLD 

80  2  7H 

;SAVK  SHELF  TO  INTI, R 

G? 

LHLD 

8027H 

;Gt;T  SHELF  POIilTEH 

MOV 

;GET  BOOK  POINTER 

INX 

.1 

MOV 

D , 

INX 

11 

SHLD 

80  2  711 

;SAVE  SHELF  POIMTEK 

XCHG 

;IS  THIS  THE  LAST  BOOK  OF  'Ml  IS  Sl.i  Ll'? 

LXI 

D,  Ot’b'FFli 

CALL 

CM  PUU 

JZ 

C3 

;JUMP  IF  IT  IS 

G7 

MOV 

L  ,M 

;GET  PAGE  FROM  BOOK 

INX 

rl 

•i  OV 

D,  M 

INX 

U 

SliLD 

30  2  911 

;SAVK  HOCK  POIMTEk 

XCHG 

LXI 

1),  01  FFFU 

;IS  THIS  i"jK  LAST  PAC:E  i/i'  'i’ll:. 

CALL 

CMPDII 

JZ 

G8 

mJUMP  if  IT  IS 

MVl 

A,  01  il 

;S|:T  FLAG  FOH  TTYLMK  SUM 
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S'i  i\ 

Tor.  All 

CALL 

TTYLN'K 

;ANY  I'lKT'OAGKS  b'KOi'l  TUP  GROUMD? 

CALL 

KUM 

;i':gw  run  this  pagp: 

L'iLL' 

:-n2V'.i 

;Gt:T  aOOK  POlNTL'i-: 

J  v,  i> 

07 

LiiLL' 

HU27T 

;IT  was  last  PAGE  SO  GET  NEXT  BOOK 

;•!  CV 

L ,  M 

I  X 

■  I 

••1  uv 

INX 

u 

SliLL 

XCiiC 

r027!l 

;SAVE  BO(.>K  POINTLK 

LX  I 

L',  (It  e  t  en 

;;0AS  THIS  THE.  LAST  BCOK? 

CALL 

Ci'iPDll 

JX 

;JUAl'  If  IT-  WAS  AML  GET  NEXT  BOCK 

JM  P 

r,i 

;G0  GET  NEXT  PAGE 

I  M 

5a  ! , 

;CliECK  TO  SEE  If  DUi'IP  FLAG  IS  SET 

A  ill 

()/iH 

JI 

061' 

If  WE  AHE  NOT  GOING  TO  OUXiP 

LXI 

ii,  co'jah 

MVl 

M,  Dill 

l.'iX 

il 

•:vi 

M  ,  POU 

I  MX 

»  • 

'IV I 

A,  (lO.i 

IM/ 

Ii 

'IVI 

,  non 

Ji'-I  P 

c:ri3 

LUA 

:-02fH 

;,'10VES  TM  BUS b  LL.  UAM  TO  TW 

OK  1 

ncii 

;AUD  DUMP  SOON  TO  STATUS 

C'lA 

fU)2fil 

i-i  V  I 

A ,  CA  K 

;SET  TIME-OUT  TIME  TO  10  SEC 

OUT 

A5U 

XUA 

A 

OUT 

eSh 

rw 

5b  K 

p.'.AIT  FOR  TIMER  TO  TIME-OUT 

A  N I 

20(1 

JZ 

o.\r 

ru 

5<JH 

;;:i:t  i<am  dump  rkouest  ela.g 

Ok  f 

Olli 

OUT 

50. i 

IlNi 

1  •  ( '» 

'"rilH 

;ivAlT  FOR  RAM  DUMP  ACKNCA'jLEDGE 

tOUJ 

0  1 .5 

;.7'JMP  If  NOT  ACKNOWLEDGED 

I"!  V  1. 

A,  OAAll 

;TM  OUTPUT  T’C  A  A 

CU'I 

Z'lfi 

I'J-  I.L 

t  1-  iA  1  A 

;WAIT  fOR  IS  FRAMES  TO  GO  JY 

'ivt 

A,  ir:i 

;SET  RAM  DUMP  f  LAIi  IN  STATUS 

fCi'A 

‘'02t  L 

Lca 

00  2i'';: 

;.‘.AIT  fOU  RA.'l  DUMP  TO  BE  flNISHL'D 

OKf. 

A 

94 


C7< 


GP3 


HUis 


C.17 


GA3 


JMZ 

(j  1 G 

IN 

sy;i 

.•KKilLT  LUMP  U  FOUL  for 

ANI 

OFUm 

OUT 

syh 

LXI 

li,  802t  fl 

.•CLKAIv  TM  l•^A^l^; 

>iVI 

M  ,  OOU 

;WAIT  fCK  ir.  Ti'l  FNAMFS  TO  GO  mY  '.I'-:; 

lUX 

M 

S'J'ATL'S  I'LAGC  1’1'SKT 

'10V 

A,  L 

CPI 

.'iAii 

J.MZ 

G7  3 

CALL 

F  ]<M  ]  G 

;WAIT  FOR  IP  FUA^iFS  TO  PAS;' 

XRA 

A 

;Hi;SKr  FLAG  FOR  TTYLNK  OUA 

STA 

Pur,e)!i 

CALL 

TTYLNK 

;ANY  MFSSACKS  FROM  t'Rl^UNI.? 

LHLD 

nor, 111 

;Gb'T  i  lAX  MK'lOUY  A  I'UU  FVS  OF  '10  SUKl  l'; 

XCllG 

LXI 

11,  LI  ('Oil 

KAi-'i 

;Gc:T  STARTING  MFMO'aY  AFORhSU  ('F  i 

MVI 

M,  CO!i 

L'UFFIR 

;CL.-''H  ALL  Tf'i  dDFFFR  RAM 

CALL 

C'iP!)!l 

livIX 

a 

J'lZ 

Gr,2 

;..v  NOT  FlNISllFP  COWTIMUK 

JMP 

G1 

LXI 

D, 00  OOP 

*?UMS  THL  I'AGF  LOCATFU  IR  '••1FMC  RY 

PUSH 

h 

-Hi,-  as:.'  Or 

.•SAVF  ADDRtlSS  OF  PAGil  TO  B  F  ura.n  AS  [  u 

y\(J\' 

;MOVl-:  PACK  TO  SUFFFH  STCRAGF 

STAX 

i) 

i'lOV 

A ,  F, 

INX 

il 

LNX 

1) 

CPI 

15a 

;'.*'AS  THAT  'IHF  LAS'l'  MOVR 

j:'ix 

G37 

jJUMP  IF  IT  'a'ASNT 

POP 

a 

;Gi:T  hack  pa  of  Iu  MUMRFR 

I'lOV 

A,  1. 

STAX 

U 

I  MX 

0 

M  CjV 

A ,  L 

STAX 

U 

LDA 

no  0  011 

;NO'.V  CALCULATF  THF,  Na'lFni;'  ROOM  I"  '\n' 

ANI 

/a'ii 

TO  .sTtao.  )-vh:k 

;AKK  iUASFS  SFIMG  S.'.FPT? 

JNZ 

G  ]  9 

;JU!'iP  IF  KF  ARL 

LULL 

nooo.'i 

;SlISTRACa  AMU  START  FRfM  /'.MU 

I'l  OV 

S  ,  il 

MOV 

C,  L 

LULU 

0002U 

SYTL 

oya 

XCHG 

;STORl  AMSWFK  IN  -UF- 
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LL'A 

f'Ol  ‘^ii 

Ci-Pi  OTLPPI.MC  IWCKPAKKi'lT 

Oka 

A 

AKL  TIIKKI':  AMY  JUMPINC  IMVOLVEI.'? 

JNZ 

('.?A 

JJMP  IP  'riiEHF  ISU'T  AiOY 

MVI 

A,  LIH 

S'i’A 

.‘;f!  1  All 

,  1  v:;^.i 

.■•trv 

-■ ,  A 

oroKi-:  ju^p  function'  in  -bc- 

1 

MVI 

:J  ,  0011 

1 

Lx  I 

ii,  00000 

INITIALIZi;  -ilL-  WITH  rooo.wt  AUP 

1 

DiviP.ro'G  -UP-  i'Y  -lu;- 

i’  0 ; j  i 1 

^  *  1 

LTOKF  DIVIDLNP  JM  TCP  OP  CTACK 

'  i  '-  ii 

;  1 

OAL 

XT'.iL 

i:;x 

X'iiiL 

XGilC 

•  * 

.'i 

-\'0a  r.ivioH 

, 

CALL 

CMPDil 

,  : 

XCi.T. 

JC 

cp-’i 

J’JNP  IP  MOT  PINISIIKP 

\ 

I’d' 

0 

GOT  MACK  ANSWEK 

liVTh 

1  '".i,  IPil 

•Z  IlL  PI  PLY  ANSWtK  IIY  Z 

.■■JCV 

AkI 

(,1'Ci: 

f.;  (;V 

,  /' 

[  i,.A 

('f)O^  '1 

;Cr:'I  MOr'l'.  UP  PA  OB 

Af-il 

OZH 

;AhE  WL  SWITCHING 

\ 

XCLC 

OZ 

c;  b  :•; 

JU'IP  IP  V\i;  A  KENT 

PAL 

II 

FiULTIPLY  BY  2 

'jn;} 

LPA 

POO  on 

AHE  WP  ACCUMULATING? 

'  ! 

Ai-ii 

O'Ol 

r 

J.xiZ 

t;  ;'i 

;JU''lP  IP  WK  AKK 

i 

Li. 'A 

c  lOZii 

;’iULTlPLY  NU.''lBER  OF  TIMES  BY  ANSWER 

, 

FROM  ABOVE 

Ci.'A 

i'/ 

A 

;iU:TURN  IP  WUi-lHEH  OF  TIMES  IS  00 

ucu 

A 

J7. 

C?J 

;JUMP  IP  ONLY  ONE 

y\cy 

n,  H 

>■>  ov 

L 

<]  '"  L 

OAi- 

f) 

;NUW  MULTIPLY 

HC 

;KETimM  IF  NOT  ENOUGH  ,'IPM OH Y 

PC  1. 

A 

JNZ 

cr.i 

;Ci:NTINUE  if  not  FINISllEP. 

;•  :;’l 

LX  [ 

1',  (  OlCIi 

;ADP  1C  TO  TOTAI. 

'::  ^ ! 

;  A 

• 

LX[ 

D,  .'’Pf'on 

;IF  TO  BIG  DONIT  HUN  PAGE 

CALt. 

\iC 

'^O'lPDll 

rjjii 

•  t 

.•SAVE  AMOUNT  OP  MEMORY  LEKDFI' 

Li  1 1.0 

i  i  rj  iii 

.-.■UbTHACT  TMHGN  FROM  TMENE 

•K'V 

C ,  L 

'^lov 

i  ,  ii 

' 

L _ 
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LHLC 

EO  Alii 

BYTE 

OB.-i 

XCliG 

POP 

ii 

CALL 

CMpnu 

CC 

DUM  P 

MVI 

A, OF AH 

CALL 

s  roi^  E 

MVI 

A,  01-  3il 

CALL 

STORE 

MVI 

A,  20H 

CALL 

STORE 

MVI 

A,  EOll 

OUT 

G3H 

IN 

''^2H 

CMA 

MOV 

Li,  A 

IN 

<"-2H 

CMA 

CALL 

STOR  E 

MOV 

\,  b 

CALL 

STORE 

LX  I 

H, 8000H 

i-lOV 

A ,  M 

Call 

STORE 

!'lOV 

A,  L 

CPI 

J  SB 

I  NX 

fi 

JNZ 

G?3 

LDA 

80U^U 

STA 

80  5911 

luld 

pn()5H 

LXI 

D,noojii 

CALL 

Ci^i  i'DH 

JC 

GG5 

LXI 

!i,  0()0  2;i 

SHLD 

:•  0  0  5:1 

MVI 

A,  3  211 

OUT 

53rl 

SHLD 

GOO  Oil 

LM  LD 

EOOAH 

XCHC 

LrlLD 

concii 

LDA 

GOOEH 

M  OV 

C,  A 

CALL 

B I A SOT 

LiiLD 

80  0  711 

M  OV 

A ,  L 

.'•IV I 

b,  niH 

CALL 

TRNSFU 

LOAD  MAX  Vi-I  I- Ut'l'  hi;  -ilL- 

SUbTP.ACT 

-DK-  NO'a-  CONTaIK'.'.  -IKMObY  AVAFLM  L.’’ 
-HL-  NCV.'  CONTAINS  Nt.NUl’vY  MKKni’P 
no  WK  MAVU  KNOUC;!  ROC-i  TO  FO  FAC-;? 
CALL  DUMP  IF  NE  DOiIV  i’.AVK  ENOUGH  1  (.O'-l 
STORE  2A  BIT  DU'l  F  SYNC 


;LATCf!  IN  REAI.  TI^IE  ANl!-  G'i'OI^E 


;MOVE  PAGE  INTO  TM  BUFFER  KA.", 


;LAST  ONE  TO  STORE? 

;JUMP  IF  ITS  NOT 
;GET  uUMbEH  OF  LOOP  COUNTER 
; STORE  FOR  USE  LATER 
;GET  DivF.LL  TIME 

;DWELL  TIME  MUST  BE  I,AKGI-:i!  TEA:'  ('fSA7 


; STORE  NEW  DWELL  TIMi:  ANP  OUTI-UT  TO 

EwfLI,  C(,  :-vT!'I, 


;GET  BIASES  THEN  O’JTI'U'J'  TO  DaCS 


;GET  RATIO  AND  FLAGS  AN!.'  OUTfHJT  'if  i.'AC.: 

ANp  l-IACS 
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I.:. 'A 
Afl 
l<i<C 
Uj<a  i: 

I  NR  a 


CALL 

^  1 S  iVi ;  j  i'  1  < 

■•^VI 

A ,  (U  H 

;;TA 

fiO'' AH 

LI 'A 

M.C 

KLC 

.•’Aliicil  TYRL  OF  Kv\EhP? 

jc: 

G2r- 

;JIJMP  IF  BIAS  S'.\'L’I-:P 

KLC 

cc 

Ai'i  U 

;CALL  IF  AMU  SWEEP 

G?'’- 

!'l  V  1 

A,  LON 

;GET  ANP  STORE  REAL  VIMH 

cu:' 

•'^3H 

IN 

^2.1 

>1  cv 

K,A 

ii-i 

(■•211 

C:''A 

CALL 

STOUL 

I'lC-V 

A,L 

f  •  '•  A 
•wi  J  ♦  > 

CALI. 

.'•1 V  i 

XRA 

CALL 

INR 

(’ALL 

l;i:T 

CkLL 

NTORt: 

li,L7!I 

A 

VRKHl'R 

R 

•I  Iv’N'.St'K 

; RES FT  AMU  TO  COO 

G2b 

blAH 

Ji'lP 

G2A 

G  1 

LXI 

tl,  POOAH 

;GO  THROUGH  'M.L  BIASES  A.MD  FIND  LONGEST 

S’aEF.P 

Lxr 

D, LOOFH 

iIVI 

u,  non 

G<!7 

LDAX 

'A 
.  y 

;GF,T  PRIMARY  BIAS 

i>Uli 

i'l 

;SUUTHACT  FROf-l  SECONDARY  SWEEP  BIAS 

Cl'  i' 

H 

;IS  THIS  ONE  LARGER  THAN  THE  L/^ST  ONE? 

1  aX 

11 

I  NX 

D 

JC 

cz/ 

;J-J.MP  IF  IT  IS 

'■lOV 

a,  A 

;MOVE  NEW  MAX  INTO  MAX  BUFFER 

"'1  ov 

A,  L 

;WAS  THIS  '['HE  LAST  ONE? 

CRT 

Ob'Ii 

J  'JZ 

G/7 

;JUmP  if  it  is NT 

M  t)V 

!•: ,  K- 

;'iCVE  MAX  INTO  BUFFER  FOR  .MIOIORY  NEE  DEL 

CALCULATION 

MV  I 

n,  ro'i 

RY'IK 

icii,  ]  r.!i 

;i>tULTIPLV  UY  ^ 

.\ ,  i: 

A  N I 

CLCH 
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MOV 

C ,  A 

XCHG 

J^P 

Gb;: 

.VAIT  OUT 

5btl 

;  ****OUT PUTD  COME, ANI)  T  O  99  1]  Ai'P  .</.T\'r 

I’CK  IT  TO  E  j r ; ; H 

G27  IN 

bbH 

HLC 

JC 

G27 

RET 

COLlX'T  MVI 

A,  i 

;  *  *  *  *  COL  LF.C  TD  ,  COR  K 1  :C  TD ,  N 1.  S  T'Oi!  D !'  A  'J  A 

OUT 

r.ru 

; Latch  in  .men  lata 

IN 

Aid 

;LOAD  DATA  INTO  -!,L- 

C:;-lA 

MOV 

L ,  A 

IN 

61  H 

CMA 

MOV 

;1,A 

CALL 

C  OK  DAT 

;CORRECT  THE  DATA 

LCA 

DO  n9H 

;DOES  Tins  PAGE  IXVvvN  COUNT? 

RLC 

JC 

G2K 

;JUMP  IF  KE  DONi’  DOWN  COIDIT 

LXI 

D, uaooH 

;IS  DATA  GREATER  THAN  >Hi()ii? 

CALL 

CriPDIJ 

JC 

G2r 

;JUMP  IF  IT  ID  AN!'  DON'T  DO'aN  COUNT’ 

IN 

bAh 

;IS  NO  DOWN  FLAG  DET? 

RHC 

JC 

G2D 

;JUMP  IF  IT  IS  AND  DO  NT'  r'J-  !'  CO’JNT 

XRA 

A 

;  RESET  L'OinN  COUNT  FLAG 

STA 

80  ;>UH 

XC  liG 

LLA 

8  or- ah 

;CUECK  TO  SEE  IF  WE  ARE  TO  UPDATE  lOIi;!:' 

COUNT' 

DC  R 

A 

JNZ 

G5 

;JUMP  IF  '.vE  ARE  NOT'  COIMG  Tu  UPEVCi'i: 

!1VI 

A,  0511 

; UPDATE  NOISE  COUNT 

OTA 

80A6H 

MVI 

A ,  OF 1 H 

;SET  I(/\TrO  TO  3e  !■  AND  COELECT 

UACKGRCvUaM,'  !0!  ;;i. 

MVI 

J  ,  0 1 H 

CALL 

TiINo  F  K' 

INK 

b 

LDA 

80090 

ANI 

ICii 

;SAVE  PRESENT  FLAG  STATUS 

CM 

0  8;  1 

CALL 

TRNOFK 

MVI 

i\  t  1  H 

;i]ESET  DATA  Cc^UNTiiR 

OUT 

AJH 

MVI 

A,  Oi'i-'!! 

OUT 

'^IH 

OUT 

61b 

CALL 

:;tz  erg 

;':ORKECT  Ev.TA  COLLECTION  SIGN,',  EL! 

MVI 

A  ,  80.1 

;OUTr>’JT  A  START’  OF  COEI.ECT !  ON  IDESl. 

-  99  - 


j  r 

LU.i 

XI  i  A 

A. 

OUT 

IN'li 

CALL 

LA 'i  COL 

;a'ATT  FUK  data  TO  PliJI.Oil  CCLLLCTINC 

MVI 

A,  4()!i 

;LAVCh  IN  B  AC KO HOUND  NOILK  DATA 

GUT 

A  J  M 

i;-. 

Co  A 

Ain 

;CKT  NOIOD  COUNT  AND  OTORL  IN  -liL- 

GOV 

L,  A 

IN 

cga 

Ala 

."GV 

.i ,  /. 

I’USli 

«' 

;OAVL  LYCTA  COUNT 

call 

COULAT 

;COKKDCT  NOIOD  CCUNT 

lOV 

0 

;GE7  BACK  DATA  COUNT 

P'JGi. 

H 

LULL 

0007li 

v!GV 

A,  L 

■«iVI 

a ,  (Jia 

CALL 

TKLSt'a 

LDA 

00  0  V-.i 

K  I 

LHC 

1(01 

OKA 

It 

I  Mi< 

b 

CALL 

T  KM  >  K 

rop 

U 

''1CV 

C:lA 

A,  K 

;3UL'iKACT 

GCV 

il,  A 

I'iC'V 

C  i‘  l  /s 

A,  L 

:-l('V 

L,A 

I  H  X 

ii 

LULL 

O')  A  4:1 

jOAVH  BACKOKOUND  NOIDL  COUNT 

UAL 

D 

PUSli 

il 

;OAVD  COKHLCIbC  DA3A 

MOV 

l;LC 

A,  H 

;CMt;CK  TO  BHL  ID  DATA  TO  NLGATIVL 

J.\!C 

0  30 

.'JUMP  II  DATA  IS  POSITIVK 

'■lOV 

/  \ ,  h 

C  I'l 

;M.A\  CO.-1PLI.TLNT  THK  DA'i'A  AND  SKT  RiSP 

GK  I 

'Hi  a 

'>A  V 

a ,  A 

I'K-V 

c  G  X 

/  \ ,  L 

i>i  C'V 

L,A 

POP 

i) 

;Ki:PLACK  OLD  DATA  WITH  UPDAIDD  DATA 

P'JOH 

a 

L!)A 

(lOOOH 

;g;:t  modi:  and  chuck  for  accumulation 

A  i-:  i 

(li'il 

jy. 

Ola 

;v)U:'iP  IF  NO  ACCUMULATION 
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LHLD 

fiO  ICil 

MOV 

A,  H 

CALL 

S  TOK  E 

MOV 

A,  L 

CALL 

STOKE 

Lli  LD 

3(;21il 

MOV 

D,m 

INX 

:i 

MOV 

E ,  M 

POP 

K 

CALL 

ADDDAT 

MOV 

A,  li 

CALL 

S  E 

MOV 

A,  L 

CALL 

STOKE 

XC  HG 

LXI 

!i,  L02FU 

LDA 

EO.TDii 

ANI 

AOtl 

OKI 

soil 

MOV 

B,A 

IN 

A9H 

A  N  I 

KOh 

RHC 

r.HC 

OKA 

L 

MOV 

ii  #  A 

IN 

5A11 

AN! 

OSH 

KKC 

lU-iC 

OKA 

L'. 

i’''CV 

S,A 

CALL 

f'KrI  1 

MOV 

M  f  >' 

INX 

11 

LDA 

tOl  '^il 

MOV 

M  ,  A 

INX 

H 

LDA 

i’Ol'^il 

MOV 

I'l  ,  A 

INX 

11 

MOV 

M  ,  I  ■ 

INX 

ti 

Ml  OV 

-1 , 1 : 

[NX 

ii 

LDA 

BOH  Ail 

MOV 

M  ,  A 

INX 

li 

fiOlCll  ;G1':T  Pl<b:si-;NT  A^U  AND  D'i'Di<K  1  P 

KA'>. 


ACCUDDLA'i  KD 


/GET  COLLKCTLD  AND  C  DC TF''  ijA'J'A 


th.<ou(.;m  tm  to  r-Ki'ija' 


;SET  DATA  KEADY  FLAG 
;;>AVE  FLAG.S 


;GET  HV  MONITOR 


;SVO!<F  STATUS  IN  TFi  tlv.M"  F 
;Si’OHE  ir  I IV  T'-i  l-KAML, 


;S'i(;i^L  DATA  IN  Ti-i  !■  F 


;STORE  DaELL  TIML  IN  Ti-l  FKAMI- 
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Li' A 

Pi.'UfUl 

M  ,  A 

li^X 

XCllG 

;C’.li:T  KA'i’IO  ANL  UC'i'ATK  'I'O  KIGIIT  P  T  IN  L 

LULL' 

3U(;7M 

Y'l'  h 
XCIIC 

!ihi,  K'M 

I'i  uV 

,  L 

I  i'iX 

;i 

£UX 
x'.;t  G 

M 

lU.LO 

XCliG 

POICU 

;r.!-:r  anu  am;  ugiATL  to  'ruF  lkft  i  tii 

LYTF 

K.:i,  I!  u 

,  ]  p.i ,  1  rii 

;^!0V 

.■> ,  17 

AUl 

L'f  on 

'1  CiV 

:.i ,  r 

;S'i‘ORE  AMU  IM  'i'/t  t  RAM  L 

I  NX 

;1 

.•UiV 

•1 ,  A 

7  a'X 

U 

LL'A 

LO  (!  9H 

;S  rOHK  HOOE  IN'  TM  t  HAi*i  L 

,'iC;V 

,  /  ■ 

1  NX 

U 

LLA 

PClli^il 

;:7TORE  LOCI'  COUHT  IN  L'l  tPAMF 

I'iOV 

Ki.'i' 

M  ,  /\ 

LULL 

HOlCU 

;GLT  PKLSL'MT  A.NU 

NOV 

A,  ii 

CALL 

fi'i'CUr: 

;SrC)UF  AMU  IN  TM  LUKLIH  RAl'i 

I'i  cv 

A,  L 

C/'.LL 

CTOHU 

LOP 

L 

;Gt:T  BACK  DATA 

OV 

A,  i 

CALL 

ijTCUL 

!'K;V 

A  ,  1 

CALL 

STUUL 

Jl'M  P 

G3!) 

LULL 

i’i' 4 '7 11 

;GKT  OLD  BACKGROUND  N'OISF  COUNT 

.-)'1A 

f.’UriAM 

J-1  P 

(;c7 

IN 

■73  Ii 

.****, ^/ViV  Qi^  PATA  '10  BE  COLLLCTU' 

N  1 

OL.i 

J.4/ 

LA'i'CfU, 

;JU'1I>  It  COLLECTION  MAE  1  S'l’ANTEP 

IN 

LA  ii 

I 

UL.i 

j/. 

KL'.'i 

C,PV 

;.71JMP  TL  COLI.hlCTION  lUNU’  FINISHl-D 

L.ilU) 

LOP  111 

;**•** RUNG  AN  AMU  GIM  KP  PAGE,  GET  TMFNl 

AND  STORK  tCR  LA' 

UHLL 

i'll  LVii 

LULL 

POPOll 

tlRST  AMU  AND  MULTIPY  BY  ErQ 

C  OR  R  LOT  TON  FAC' 
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G37 


I'iCV 

A ,  L. 

UU'l' 

G4U 

.•OUTPUT  AhU  to  tom  OF 

i-IGV 

A,li 

OUT 

G4.1 

SULU 

30  201! 

;GTURF  AMU  MTAH'l'  TM  CAMF  (T 

ACCUf-iU  LA 

i‘iVI 

A,  JDU 

;CONVLU'i’  TOG  '1 -J  FLOA'J  Ji«iG  PO 1 1 '1' 

CALL 

X  A  I  'i' 

LX  I 

il,  OOGO.I 

;PUT  FKFO  CORHl.CTION  l-ViCilMl  ON 

/'■I  ov 

A.  , 

OUT 

54il 

DCX 

:l 

,V1  ov 

A ,  M 

OUT 

5-111 

ix:x 

h 

M  ov 

A,M 

OUT 

54  u 

DCX 

!l 

M  OV 

A,  M 

OUT 

5  4  H 

r-lVI 

A,  12U 

;nULTIPLY  tom  HV  NOS 

CALL 

'.'■AIT 

MVI 

A , 

.-CGNVUNT  TOS  TO  FIXL’D  I'OINT 

CALL 

K  A I T 

I N 

54il 

/LOAD  -HL-  a'ITi:  COKHECTLi','  AM’J 

MOV 

L  f  / 1 

IN 

5411 

iv)  OV 

11,  A 

MOV 

A,H 

/TRANSFFK  AMU  TO  AMU  LACS 

MVI 

Li ,  0711 

CALL 

TUNSFL 

INH 

U 

MOV 

A,  L 

CALL 

T 11  No  F  R 

MVI 

A,  74H 

OUT 

a;oi 

MVI 

A,  ('FFli 

/HFSLT  I.'A'i'A  COUNTER 

OUT 

Alii 

OUT 

Alii 

CALL 

oTZ  FilO 

/CCKHbCT  DATA  INPUT  LEVEL 

MVI 

A,  OOU 

/OUTPUT  A  START  OF  COLLECT  TOM 

OUT 

:>o  1 

XNA 

/. 

OUT 

OOil 

LULL' 

it;;;  nil 

/GET  /\MU  AFl)  AD.IUST  TO  CO  NEXT 

GULL 

i'OlCii 

/STORE  AMU  HECAIISl  ITirS  IS  IRE 

LLA 

00  1  5!! 

/'JET  STEP  VALUE 

OV 

,  A 

i-ivr 

L,  0  011 

/A  ID  STEP  TO  AMU 

LAl; 

u 

GHLL 

ion  oil 

/MTORL  NEW  AMU 

Gi". 


.C(  V 

A,  L 

;C0KKKCT  AMU 

hITil  FKi-.C  CUUKi’CTTOivi 

FACTOH 

(njT 

I'l  uV 

A,  P 

JUT 

L  f':  i  i 

■'!  vr 

mil 

;COI\IVLUT  TOS 

TO  FLOAT r:G  POINT 

CALL 

W.MV 

LaI 

il,  LC'jOa 

; OUT PUT  FHKO 

COKULCTKA'l  I'ACTOK  TO  TOO 

A  ,  I-' 

CjUT 

A/l.'l 

UC>. 

.'.'.v  A,  I': 

iCX  !1 

.‘1  \/  A , 

CUV  s/lli 

ncx  '1 

.■iCV  '\,M 

OUV  fj^rl 


V I 

A,  ]  2ii 

MULTIPLY  TOS  BY  .NOS 

CALL 

r.AlT 

MV[ 

A ,  iL  H 

CONVLUT  TOS  TO  FIXFD  POINT 

CALL 

A  A  I? 

IN 

AXul 

GST  COHRIICTLO  Ai-U 

MOV 

L,  A 

IM 

b^li 

■iOV 

U  ,  A 

Oh  Li.' 

1  .'OTOUh.  CONHrXTLD  A.MU 

.•i  V  [ 

A,  nOH 

•IS  IT  TI.-'iL  TO  UPOATL  FLFC  CORHSCTION 

t actor? 

OU'I 

A, 'Ll 

i  Iv 

OX.il 

A  i>i  1 

0  7il 

LXl 

t'*  .  \ 

;CUFCK  ACAINLT  STCKF.D  TI.^U; 

If.: 

A2.i 

• 

c/ 

I'ULOC 

CALL  IF  IV  IS  VIOL 

CALL 

L'ATCOL 

WAl'L  FOU  I'ATA  TO  BL  COLLSCTLD 

CALL 

CCLKCV 

vJST  LATA 

LLA 

F(i0  9M 

GFT  HCDK  OF  PAGO 

A  N  1 

ALL  VyiL’  SWITCLING  BIASFS? 

NX 

G  Si¬ 

JUMP  IF  VfE  AULNT 

Li  i  L  r> 

nn  OF  H 

GET  ALL  SECOi'lDAkY  BIASES 

XCilG 

LiiLO 

HOI  lit 

LOA 

Li)l  01 

'K  V 

C,  A 

i-iv; 

f\  f  7  X  i  1 

O  U'l’ 

r,;Ai 

.•!  V  f 

A, OFFU 

OU'l' 

n  I  li 

OUT 

r  1  ii 
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CALL 

b I A COT 

;0UTPUT  ALL  OIADF;.  TO  TliUKF  LAC;: 

CALL 

STZ  LHO 

;CORRt;CT  DATA  IRFUT  LF.VKL 

f-iVI 

A ,  80.1 

.-OUTPUT  A  L'TAH'l'  Or’  COLr,i;C'l'TG,\  PULC-i 

our 

50’J 

XKA 

OUT 

sn;i 

CALL 

DA ’i  COL 

;'.\'AIT  FOR  DATA  TO  FINTCMl  COLLiX'I'IM 

CALL 

COLLCT 

;  G  U DA  'i'A 

LULL 

?o.u;  ti 

;Gi-:t  pRHSurcr  amu 

XChG 

LH  LO 

r-'.DOPu 

;GDT  FI  MAI.  AMU 

CALL 

CMFD.l 

;T5  THIS  Till:  LAST  A, MU  ’ro  UP  SCAiAxli;! 

JC 

G/:c 

;JJMP  IF  IT  IS ST 

LDA 

30  (Mil 

;GKT  NUMLiFR  OF  TIMFL 

i:c  R 

A 

/DECHKAMLNT  MU-IPFU  OF  TJ.MES 

STA 

80  0  40 

Ji'iZ 

czi 

;JUMP  IF  IT  WAFUT  THE  IVtST  LO()P 

Call 

Fli.M  1 

;****I:NDS  a  page,  also  CK'i'S  CCUH'iS 

f  •  t 

.•■IV I 

A,  0011 

STA 

rCP-Fi, 

LULD 

UOOLU 

;GET  DWELL  TIME  UP  PAGE 

XRA 

A 

;  OUT  PUT  A  10  0  TO  TO;E  OF  '>511 

OUT 

5411 

OUT 

5411 

>iVI 

A,  OCGll 

OUT 

54,1 

MVI 

A,  OCii 

OUT 

54  U 

MOV 

A,  L 

;NOW  OUTPUT  DvvELL  TT.ML  TO  TOS 

OUT 

54K 

MOV 

A,  It 

OUT 

5411 

1-1 VI 

A,  IDU 

;  CONVERT  TOS  TO  FLOAT  I  MG  POIM'i 

CALL 

FAIT 

MVI 

A,  nil 

.•DIVIDE  MOS  BY  TOS 

CALL 

'.VAIT 

MVI 

A,  17il 

; DU  PLICATE  TOS  TO  NOS 

CALL 

WAIT 

LHLU 

80  5  7fl 

.-POINT  TO  FIRST  DA'IA  TO  ML  DIVIDE!: 

INX 

11 

IRX 

;I 

MOV 

0 , 1-'. 

.-GET  DATA 

IIMX 

!l 

:>!  OV 

L  ,  M 

fx:x 

H 

XCUG 

MOV 

A, I. 

HAL 

.•IS  DATA  NEGATIVE? 

CC 

L'LG 

;CALL  IF  IT  IS  NECATIVE  AND  CORHi'O'l 

f-'iOV 


L 


;PIJT  DATA  II-VO  TOr.  WF  'Ibll 


t,  1 


OUT 

O-'lll 

1*1  OV 

A,  1. 

OUT 

MVI 

A,  il:i 

.-CGNVKin’  VOS  VO  FLOATING  POINT 

CALL 

A  A  IT 

IM  V  [ 

A,  ]  2\i 

;-4ULVIPY  TOS  BY  MOS 

CAI.l, 

'C  A  I  '1' 

LuA 

r.oo'.vi 

;G r-i(,-DL  OF  PACK 

AN! 

fjFii 

;AKF  A't:  ACCUMULATING? 

J/, 

G  3  C 

;JU:-lP  IF  V.  L  A  RENT 

ll'a 

1 

;G!-;V  NUMnER  OF  TIMES  AMD  OUTPUT 

OUT 

c  ;  /1 1  ] 

Xl.A 

A 

OUT 

0411 

:«lVI 

i\ ,  1  0 1  i 

; CONVERT  TOG  TO  FLOATING  POIi'.'T 

CALL 

A  A.  i  '£' 

MV  I 

A,  1  3(1 

;UIVIL'E  NOG  BY  TOG 

CALL 

'A  A  T  1' 

£  N 

5411 

;GET  COUNTG  PER  GECOMD  DATA 

■‘UjV 

(1,  A 

I  W 

5411 

M  OV 

L,n 

ii'.' 
i<  LC 

S4il 

IN 

5411 

"i  OV 

LAL 

A.  L 

i  lUV 

L,A 

n  V I 

A,  1711 

; DU  PLICATE  TOS  TO  NOS 

CALL 

'A  A  I  T 

XCLG 

;GET  BACK  POINTER 

MOV 

,  L 

I  I'.'X 

.1 

.«iOV 

'i ,  fc' 

I  MX 

il 

I  NX 

H 

I  NX 
xci.c; 

•i 

Lli  LL' 

CO  3  111 

;GET  TMENP-  POINTER 

CALL 

XCliC 

CMPDll 

;LAST  LATA  TO  CONVERT? 

JC 

f;PT 

G4X 

/JUMP  IF  lllEKE  ARK  MORE 

L-iLi: 

XCl.G 

POOA.i 

;GAITC!i  i3IASES  RACK  TO  NORMAL 

lAILU 

COUCH 

L  LA 

«nuc;ii 

i'l  uV 

C,A 

CALL  ilIA.'-;0'i’ 

LIILD  jC'.'.’.T  CGHKECILD  AMU 

.JMl-'  (',37 

LULU  30?1.M:  ;Zi'.7  OUIGlNiAL  AMU  AND  PUT  IT  IN  PRE.SlA”i 
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Arii;  i/ic/'/imO'N; 


G2i: 


K1::G 


BIAIJ 


SHLD 

HOG  Oh 

LDA 

80  0  9H 

;CET  MODI-:  OF  PAGE 

AM 

OSH 

;AUE  WE  ACC UmU LATINO 7 

JZ 

A.^'l  U 

;JU,-1P  IF  WE  AN  ENT 

LHLD 

La57fl 

;SET  TM  iSUFl’ER  RA.M  POINTEU  TO  C^i^i<iCT 

BULD 

ro2l;l 

LOCA';'I(.f 

JM  I' 

A;MU 

MVI 

A, OFFH 

BT/v 

0n2DH 

PUSH 

P 

U.^iP 

C3() 

CMC 

;****!!'  DATA  IS  aEOATIVE  THE'v;  TELL  ^'811 

AK 

;AMD  RESET  MSB  I  T  01-  [ATA 

MOV 

ii ,  A 

MVI 

A,  15il 

;CHANGE  SIGM  IN  '>511  TOM 

CALL 

W  A  T  'i' 

i^ET 

LH  LD 

8(!21H 

;****SWEEP  THROUGH  rllASEl  '.'.TTi;  AMi; 

SHLD 

B0  57ii 

CC;  vS  r/'STi 

;STOHE  TMEML  III  CASE  WE  ACCUMULATL 

LriLD 

SOOOH 

;GET  AMU 

SHLD 

OOlCH 

;STOUE  AMU  FOR  TM  L'T'AME  STORAGE 

LDA 

801  4H 

A.NI 

U-'H 

STA 

001411 

M  OV 

A,  L 

;COHRECT  AMU  WITH  FREC'UER'CY  CC.RRECT1('\ 

GUT 

5411 

I-'AC'iLH'. 

OV 

A,  H 

OUT 

5411 

MVI 

A,  lUil 

;CONVEkT  TOS  TO  FLOATING  POINT 

CALL 

l-H 

LXI 

11,  HU5DH 

;POINT  TO  FkKC-'JENCY  CORRECTION  EACiOR 

MOV 

A ,  S' 

CUT 

5  4  1 

DCX 

Li 

M  OV 

A ,  1-, 

GUT 

5411 

ncx 

:i 

MOV 

A ,  I'l 

GUT 

54ii 

lk:x 

i-{ 

'1  OV 

A  ,  f- 

CUT 

5411 

MVI 

A,  12H 

;MULT[pLY  TOS  BY  NOS 

CALL 

WAIT 

MVI 

A  ,  1 F  H 

;COKVI:rV  TOS  TO  FiyLp  poi;.’T 

CALL 

'A  A  1  i' 

IM 

!.4:1 

;GET  CORRECTE'i:  AMU 

••iOV 

L,A 
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lu 

'jA.il 

'.v; 

A,  ; 

..Ort  OUTPUT  ANU  TO  DA  CL 

CALL 

TaCLM: 

I  i'iK 

i  ) 

■'AiV 

A,  L 

call 

VlLVr.LL 

LXJ 

l\ ,  oCi  (I.A  li 

nOVL  pRii'':AUY  aiACLL  IMTO  LUt'LLK  fOL 

USE  L/'.TL, 

Lxr 

pp;u-'i; 

•■lOV 

A,.-; 

'TAX 

'  j 

[i.'X 

D 

i  i<A 

;  1 

MCV 

A ,  I. 

CPI 

Ll'li 

JMX 

CA'j 

.TJMl-  IF  MORE  ARE  TO  IM:  i'IGVEC 

CALL 

LAi'Z  fc;uG 

CORRECT  lis'PUT  DATA  LEVEL 

MVi 

A,  POii 

OUTPUT  A  S'i'ART  OF  COLLECTION  PULSE 

UUi' 

XKA 

A 

Aij  r 

CALL 

DATCC'L 

WAIT  FOR  DATA  TO  EE  COLLECTED 

CALL 

COLLCT 

GET  DATA 

LXl 

H,  LOO  All 

FIND  O'JT  'A men  BIASES  ARE  VO  BE 

INC  REAM  EN'i'E 

l::a 

00  I'Ll 

GET  BIAS  MASS 

DKA 

A 

JX 

G4  0A 

Ki<(; 

; CHECK  EACH  BIT  FOR  A  OK'C 

INX 

II 

J'v'C 

GAii 

GUMP  IF  NOT  TO  BE  INCREAMENTED 

A  ,  !'• 

jSAVL  THIS  BIAS 

f-Xl 

1),  OOObii 

LAI' 

D  ;AnD  S  TO  FOINTi-.H  TO  GE'i  KNDrNG  'UAL 

Cf'i  p 

;AI<E  THERE  ANY  MORE  TO  BE  INCREAMENTED 

GM.. 

vJUMP  IF  IT  WASNT 

LLA 

cOlMii 

•IS  This  the  last  loop 

i)Ci. 

A 

S'i'Ai 

00  0^11 

.1  /, 

LML'IWG 

;GJMP  IF  THIS  IL  THE  END 

L/i 

li,  CnOAii 

;SET  UP  TO  MAKE  ANOTHER  LOOP 

LXf 

L,  BO  3r  li 

I.OAX 

U 

;MOVE  ORIGINAL  BIASES  INTO  BIAS 

LOCATION 

■'1  CjV 

•1  ,  A 

1  .iX 

0 

1  i  'i  A 

il 

AlCV 

A,L 

CM 

(U-  Il 

JuZ 

Gl.l 

JU'^.p  IF  NOV  DONE  MOV!  NO 

Li-A 

"OC'LI 

GET  MODE  Ot  PAGE 

AK] 

(AMI 

ARE  aE  accumulating? 
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JZ 

G  A  A 

LHLD 

80  3  711 

ShLD 

8021H 

JM  P 

G^r. 

G/;9 

LDA 

LXI 

H, COOAH 

G52 

RRC 

MOV 

B  ,  A 

JNC 

G34 

INK 

;•! 

G54 

INX 

11 

M  OV 

A ,  L 

CPI 

OF  11 

MOV 

■A  r  L 

JNZ 

G32 

LHLD 

XC  HG 

EOOAH 

LHLD 

HOOCl: 

LDA 

rOOEH 

MOV 

C  , 

CALL 

B lASOT 

JM  p 

Gzr, 

A  DO  DAT 

MOV 

ULC 

A,  11 

JC 

G3  3 

iM  UV 
n  Lc 

A ,  l; 

JC 

C?A 

DAD 

RET 

D 

G33 

MOV 

RLC 

A  ,  D 

JC 

G31’ 

G5(/ 

MOV 

l<AL 

CMC 

RAR 

Cm  A 

A,  H 

.■’(jV 

H,/' 

i'RJV 

CM  A 

A ,  L 

MOV 

L,A 

IMX 

VI 

DAP 

D 

:•!  'JV 
HAL 
HFsIC 
CN.C 
KAK 
CM  A 


A, 


If  WL  AKL^JT 

;MfT  BUiUJT  BUt'FLW  I'M  COKlvKCT  LUC/'I  IO^' 

;GKT  BlAf-;  IWCkEAMFN'r  MASK 
;  PO I  NT  T  0  K  I H  I,  T  BIAS 

;is  Tiiio  BIAS  supp()Sj:n  to  bi-: 

;JUMP  IF  IT  IS NT 

/POINT  TO  NEXT  BIAS  LOCATION 

/LAST  BIAS? 

/JUMP  IF  THERE  ARK  MOH’’ 

/GET  ALL  BIASES  AnR  OUTl'UT  i’C  OACS 


»*  NEW  I  ATA  TO  ACCU‘-lU[,ATEn  I'ATA 

/JUMP  IF  ONE  liATA  IS  MKCATIVE 


/JUMP  IP  KKGATTVE 

/apu  tocetheh  7f  E'.ote  ark  positive 


/CHECK  FOR  THE  OTHER  PATA  TO  BE 


'''KGAV  I  VK 


/JUMP  IF  both  are  NEGATIVi; 
/SUBTRACT  ONE  FK(;m  TliK  OTIiKt-' 

/RESET  MSB  OF  NEGATIVE  NUILKk 


/AIM)  TOGETHER 

/RETURN  IF  POSITIVE  P 11- 1- ERI'NC  i; 
/COMPLIMENT  L’A'iA  AN!'  SET  MSi^ 
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.1,  /' 

A,  L 


i'lLV 

.-IL'V 

Ci^iA 


y.ov 

[. ,  A 

UFV 

:)7\  1  -■ 

J  ) 

NHGATIVc;  .‘0  AIM)  AND  GET  ySM 

f 

A,  11 

UK  J 

[■P'l 

•■'i  (.'V 

.i,A 

K  i;'»' 

XCnf. 

.  ( >:  I- 

C;  t  ; 

E  i-  i 

1 1'i 

Ltil. 

;:>KT  THi:  INPUT  TO  LATA  COUMTLH  TO  Z1 

•k.M 

lai! 

.r/. 

Cl  7 

Jb  IT  IS  0 

L  N 

'-MA 

;SLV  TO  ZERO 

Xk  j 

Ohii 

■)U7' 

rAjii 

(.7? 

r 

59!1 

;NO.-v  KEGFT  LSK  CYCr.i:  DKTl'CTOR 

AM 

OEt  H 

OUT 

b  '.U 1 

OlU 

lOtl 

OUT 

;.v‘H 

iUlT 

C  (.'i\  !'■ 

\  'i  1  N 

;T’aO  rULSKS  CONI'  BY? 

AM 

1011 

JXZ 

G7/1 

LX  I 

11,  ooooa 

JNil^ 

GTl 

L  A  i: 

1.',  ouonii 

; CORRECT  TIlK  DATA  COLLECTED 

CALL 

CMf’OH 

;TS  DATA  ZERO? 

J-:/, 

G70 

;JUMP  IE  ITS  NOT 

luX 

H 

I  IvX 

h 

C7  1 

r  r' 

5b  h 

;IT  THE  DATA  STILL  HI? 

AiO  L 

Olii 

.\/j 

ri:x 

;i 

Ki:r 

l  i  7  ( i 

XC 1 IG 

;1E  DATA  ISNT  ZERO  THE;'.'  SHIFT  LEF'J 

.sYTK 

1  'Ml 

’•'OV 

A,  !■: 

AHi 

Oi-'lMi 

'■iCV 

ij  ,  A 

I.JX 

i) 

; Til  El-!  ADD  ?  TO  I'l 

rox 

!) 

xci;g 

OOP 

G7! 

E  fi  Li 
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stitll; 


"I  LITP  PiU)GKAMli  FOti  BBIMG  U 1  BY  .!1M 

I-.  / 


GLOBAL 

T!nbYT2,  FHMl ,  i-'UMK, 

GLOBAL 

G  Z  3 

GLOB/iL 

DUMP 

GLOBAL 

TTYLNX 

GLOBAL 

CMPDH 

GLOBAL 

RUN 

TTYLNK 

IN 

;COMMUM ICATIONS  LINK  FCK  BALLOON 

HAL 

;CHFCK  OSH 

iiNC 

;HKTURN  IF  LINK  IS  BiiOKllM 

PUBil 

'll 

;SAVF:  -ilL-  FOR  RKTURK 

Cl 

MVI 

A,  0211 

;St:T  THF  Tlintu  TO  l'\  2  SKri.;;:';: 

OUT 

l^b'l 

XU  A 

A 

CUT 

rsil 

IN 

r.9:t 

AMI 

0  211 

JZ 

G3  3 

IN 

'3B11 

;CLHAR  US  ART 

G3'* 

MVI 

A,  0511 

;GENL'  MNC'  TO  GKO’JNP  STA'i'ION 

CALL 

THNSMT 

CM 

LXI 

ll,  500011 

;START  LOADING  DATA  FRO!  GROUND  INTO 

uOI'l-  DRS 

CALL 

RtlCLV 

JC 

G3 

MOV 

J ,  A 

MVI 

A,  1  OH 

OUT 

;SL'T  THK  TIM  HR  TO  TIMh  OUT  IN  ]  "• 

SKC(  .IDS 

XRA 

A 

OUT 

5  5h 

in  OV 

A,  B 

JMP 

G37 

G2 

CALL 

HLCKV 

JC 

G3 

;JUMP  IF  FRRCR  IN  SUB 

C37 

CPI 

0311 

;CHMCK  FOR  hlTX 

MOV 

M  ,  A 

INX 

:i 

;POIMT  TO  NLXT  BUFFt.R  LOCATTG'N 

JZ 

GZ 

;J'JMP  IF  IT  WAS  KTX 

MOV 

A,  L 

;CHFCK  -ML-  FOR  tlND  i.'F  DlIFFFi; 

CPI 

/!31i 

JNZ 

C2 

;JUMP  AND  GKT  ANOTilhlK  CiiARMC  lOR 

LXI 

11,  58/1  3H 

;POINT  TO  BECT’'D!I;,:G  OF  SKCOND  Bllttl-T 

G5 

CALL 

RtlCLV 

;Gt:T  DATA 

JC 

G3 

;J!JMP  IF  hlRKOR  IN  SUB 

CPI 

C3H 

;CflECK  FOR  F.TX 

MOV 

M  ,  A 

INX 

il 

; POINT  TO  NLXT  H’JFFFK  I.OCA'l'H  N 

JZ 

;JUMP  IF  IT  WAS  I-ITX 

MOV 

t  \  f 

;CIlKCK  -ML-  FOR  tlN!,'  OF  iMU-l'DI-: 

CPI 

-  Ill  - 


i 


Z1 


C IJ 


G]  ] 


C.  1  /! 


• )  ) 
C/'J 


J  JZ 

!;*> 

GOT  OLXV  CllAUEC'lCU 

LXI 

li, 

•POIG'i  TO  JLGIM.MIMG  Of  TnllU:  BUffi:j 

CA  LL 

i<  i  C  KV 

GET  OA'i'A 

JC 

G  ?, 

JJMP  If  fUROU  IN  SUB 

CPI 

0  Jii 

CHECK  FOR  b.TX 

i-'  ( iV 

1^'  ,  A 

j 

.1  ;POINT  TG  NLXT  JUl’FKK  LGCATION 

JZ 

GT 

JUMP  If  IT  WAS  AN  fTX 

'l  w'  V 

;CliECK  -ML-  I'OH  HUD  Oh  bUFFf'R 

Gi'l 

nGOJi 

J  a: 

^  ‘  '  1 

JUMP  If  IT  WASMT  Tlit  fNf 

Lxr 

L‘BOn'1  ;LOAn  -HL-  -DZ-  -BC-  WITli  START  Of  lACi; 

B  UF  I'KR 

LX  [ 

0,  ‘jfM  3H 

Lxi; 

a,  hB'iAll 

;NUW  COMP/^Rf  AND  flNC  ONE  COi-iPLETE 

MESSAGE 

LLAX 

»  > 

•GET  L'aTA  IRUil  SECOND  B  Iff  PER 

C,‘I> 

I*'! 

;COMPARf  AGAINST  L'ATA  fROi‘1  SECOND 

BUf  !•  ER 

J  vl  ■/ 

CIO 

JUMP  If  NUT  EQUAL 

1  NX 

':1 

;  POINT  TO  NEXT  DATA  BYTE 

INX 

1) 

[  .  G< 

t> 

CNi 

(Si.l 

WAS  THIS  LAST  DATA  BYI’E  AN  ETX? 

JZ 

G.1  X 

JUMP  If  IT  WAS 

'•'lOV 

.  ,  L 

CHECK  TO  SEE  It  THIS  WAS  THE  END  Of 

'I’HF  BUffi,t<S 

Gl'L 

1 

JKA 

cy 

JUMP  If  mOHE  TO  BE  COMPARED 

l.Xl 

il,  APJOU 

;POINT  TO  BEGINNING  OF  COMPLETE  LIST 

I-;  ■  )V 

i‘ '  I J  I 

f', 

f  ') :  1 

fJET  FIRST  BYTE  IS  IT  A  STX? 

JJZ 

G  1  J 

■JUMP -If  NOT  AND  TRANSMIT  A  REPEAT 

LGA 

RCOLn 

pSEE  if  COMMAND  IS  A  VALID  ONE 

Cf’I 

0111 

JZ 

G3Z 

cpr 

02.1 

JZ 

G32 

Cl'T 

0  f,  M 

JZ 

G  <2 

C  PI 

OOii 

JZ 

G32 

C  f'  1 

1  (i.J 

JZ 

G7X 

r  -n 

?o;i 

JZ 

G  3  X 

G  I'  I 

Z(':l 

]  JZ 

G  1  3 

'■'lev 

A,G 

C,'.LL 

TUNSim'I' 

pMOiv  'pransmit  total  r.IST 

]  i'.'X 

:i 

CPI 

0311 

p CHECK  FOR  ETX 
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r  U  '.  ’  li 

;;:;a 


;CI.I:aU  t  LAC, 


if)  •'■■Vi  I 


c,: 


\'M-  il 

I-,  i  .’i 

■iVl  A  ,  ('[■  !•' li 

C/^[.L  LkMIA 

.)  'I'  L] 

[.L'.x  L 


c."'  !' 

X  J  li' 
Cl- ip 


‘t 

(;]  1 


J  'I  z  c  1 3 

xciic; 

i  \  .'1 ,  /'. 

,]''IP  (111 

LCA  S’ilLii 

Cil 


'i 

I. .X  ;l 

i,Ai  U!i 

C,a.L  (>!V,<T 
LX  L 

)-Xr  L,  FilDf';: 

'P.'V 

1!'A  il 

■•iLV  \,;- 

J. -y  :i 

i-XAL  '■) 

■li.V  ,  1 

i.-jy 

..I'AX  > 

I.X 

,-:(;V  r.  ,/'■ 

1  L  X  I  i 

ACV  X,M 

1  •>:  .1 

pf.'V  A,  I' 

fN.X  !) 


;aLV  LAVA  LilCXi  VlilLL  HUFFLL 
;CUMPA!ir;  T(  ■  l-'Iiif-'T  L  ULi- i:!'’  ''A'i'A 
;.rj!-i!>  IF  VilLY  Ai  K  LOUM. 

;PUT  -LK-  INVU  -!1L- 

/CO’-IPAUL  TillRF  ilUFFLl;  )\ATA  ITll  SKCOF' 

XUFL'EU  LAIA 

;\'0  COiiFAlULCXJ  TRANSMIT  A  RLPFAT 

;LOAi)  COOP  DA'IA  INTO  FIKST  LUrFEL 

.•CHECK  LAST  TATA  LYTL  FCF  I.TX 

;.5J''IP  IF  NOT  A  ,M  ETX  CllALFCTOR 
;  POINT  T('  NEXT  uY'l’l^ 

;LOAi:  -PE-  WITH  LAST  F YT h  OF  DATA 
.•CONVERT  AMU  CCMLINE  LATA 
.-POINT  'lO  i.iEGINNINC  OF  l  ATA 
.•POINT  TC  AFGIIJNING  OF  LEST  T  SATI 0:-' 
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CALL 

c:nvu'1' 

CALL 

P.\CK 

X.<A 

A 

S']'\ 

nirc/'.i 

CALL 

P')i- 

.1 

L  iCi' 

c;  1 

L  'j.'\ 

S'M  All 

;CliL:CI<  LAST  BYTE  FOR  ETX 

C  L  L 

UO.'i 

JNZ 

C  ' 

;J'J>1P  IF  .VCT  AND  RETUFl'' 

r,xi 

n,  APOL.i 

aR  A 

A 

L’i'A 

C('L7.1 

I  NX 

ll 

CALL 

CLVicr 

CALL 

PACK 

■o  j  ■  ' 

'i  V 

> 

[•-'X 

:  i 

NOV 

:),o 

I.'  X 

.1 

PUL  li 

i; 

LX  1 

11,  ('Ll  PC! 

i 

CAL  L 

CMPOU 

JZ 

Q]1 

XChC 

CALL 

RIJN 

POP 

ll 

j!-l  P 

CiK' 

(5  17 

POP 

il 

P(.,'P 

ll 

Ki’T 

PACK  ■ 

L  r;,A 

Aropii 

•1  ov 

D,  A 

LLA 

5?unn 

>i  (.jV 

!•; ,  A 

XCl'C 

;  ’  f  '■  ■ 

C  MVA'i' 

:  \  1  .  i 

PUOti 

ll 

;THIS  SUB  CONVERTS  ASCII 

■•iC-V 

A  ,  1- 

;GET  A  BYTE 

A  I 

7PH 

;REi-10VE  I'iSB 

SUI 

'MUi 

.•SUBTRACT  30 

Cl  l 

OAi; 

;1F  STILL  CHEATER  THAN  A 

j(.: 

C22 

our 

(’7il 

i<  1  .c: 

ULC 

M.C 

i;!/: 

;RCTATE  UP  TO  TOP--  NIBBLE 

A  OV 

h  ,  A 

; STORE  IN  -B- 

I  "X 

'I 

;GET  NEXT  BYTE 

TO  PACKHC  'thX 
ciiARECTor-!:-: 


TiiE!\’  SUii TRACT 
7  MOi<L 
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•>1 OV 

A. .  1. 

AMI 

vru 

SUI 

"OH 

CPI 

UAil 

JC 

G  2  3 

GUI 

n7il 

C23 

JKA 

b 

.'COM LINK  t'ao  i-iibbLi;:; 

XT  HI. 

MOV 

N,/ 

I  NX 

H 

XTHL 

CALL 

CMPL'fi 

;'.vAS  THAT  Till.  LAST  ONb? 

I  NX 

!l 

JNZ 

G21 

;JU'1P  IP  IT  a'ASKT 

POP 

H 

il  L'T 

TUK'S^iT 

PUSH 

is 

.'THIS  .SUB  TKANSMITS  TO  .C'OTJN 

■■lOV 

3, A 

CALL 

FHMl 

LDA 

R()2t'H 

;GST  STATUS  OP  PUAmF 

GUI 

OZIl 

;SKT  TTY  FLAG 

STA 

a0  2FH 

MOV 

A  ,  b 

STA 

f;0  3  7u 

;STOHK  PATA  INTO  TTY  LOCATIO' 

G2ri 

IN 

OUH 

;V;AIT  pgr  TUANS''!  ITTLR  UKAPY 

UAR 

J'iC 

G27 

M  OV 

A,  B 

OUT 

GR'l 

POP 

B 

UET 

HLCKV 

IN 

5b  H 

;HAS  TIME -OUT  OCCUUKD? 

AN  I 

20!I 

JxJZ 

G27 

.'JUMP  IF  IT  MAS 

IN 

.'CiiKCK  TO  r;i-:K  if  ukcftvku  ha 

ANI 

0  2.ii 

JZ 

ULCLV 

I  K 

r,n:i 

ANI 

.lOH 

JNZ 

C2P. 

IN 

GDI! 

Ui<A 

ULl' 

G2'd 

NVi 

A,  1  7U 

CUT 

GDH 

C27 

S  TC 

UL'l 

Fh.'l  ] 

LDA 

PD2oll 

;',<ATTS  FOR  OO'K  FULL  FFA.M'  TO 

CPI 

T'-l  BYT  2 

JNZ 

U>,  1 

G/1 

LDA 

'J0  2KH 

CPI 

n  ;i 

K 

1 
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IV. 

APPENDIX  B  - 

GROUND  CONTROL 

PROGRAMS 

TABLE 

OF 

CONTENTS 

DESCRIPTION 

PAGE 

FLOW  CHART 
PAGE 

CHARACTERISTICS 

PAGE 

CODE 

PAGE 

1. 

RSTl 

122 

130 

202 

227 

2. 

INT  6.5 

122 

130 

NA 

NA 

3. 

INT  7.5 

122 

131 

202 

227 

4. 

CMBACK 

122 

131 

202 

232 

5. 

FRAME 

122 

132 

203 

233 

6. 

YORN 

122 

134 

203 

234 

7. 

MODE 

122 

135 

203 

234 

8. 

BIASP 

123 

138 

204 

235 

9. 

BIASS 

123 

138 

204 

235 

10. 

READ 

123 

139 

204 

237 

11. 

NMREAD 

123 

141 

205 

238 

12. 

MOVE 

123 

142 

205 

239 

13. 

CMPDH 

123 

142 

205 

239 

14. 

ALREAD 

123 

143 

205 

240 

15. 

BELL 

123 

143 

206 

240 

16. 

DIRECT 

123 

144 

206 

241 

17. 

ERROR 

123 

145 

206 

241 

18. 

ENDIT 

124 

145 

206 

242 

19. 

MESSAG 

124 

145 

206 

242 

20. 

FILL 

124 

146 

207 

242 

21. 

CLEARB 

124 

146 

207 

242 

22. 

CLEAR 

124 

146 

207 

242 

23. 

MANY 

124 

147 

207 

243 

24. 

LOOKUP 

124 

148 

208 

243 

25. 

ADORES 

124 

149 

208 

245 

26. 

INDRCT 

124 

151 

208 

247 

27. 

BNRY 

125 

152 

209 

248 

28. 

DCML 

125 

153 

209 

249 

29. 

MOVEM 

125 

153 

209 

249 

30. 

COMPA 

125 

154 

209 

251 
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IV.  APPENDIX  B  -  GROUND  CONTROL  PROGRAMS  (continued) 

TABLE  OF  CONTENTS 


DESCRIPTION 

PAGE 

31. 

COMPD 

125 

32. 

COMPSB 

125 

33. 

ALTR 

125 

34. 

GETDAT 

125 

35. 

DFCBN 

126 

36. 

DISPL 

126 

37. 

FEPROM 

126 

38. 

TTYLNK 

126 

39, 

BINDEC 

126 

40, 

GOTO 

126 

41 . 

OSDATA 

126 

42. 

DSADDR 

126 

43. 

BAUD 

126 

44. 

NPAGE 

127 

45. 

DUMP 

127 

46. 

CONT 

127 

47. 

WAIT 

127 

48. 

RATIO 

127 

49. 

MASK 

127 

50. 

IDNUM 

127 

51 . 

LOP 

127 

52. 

TIME 

127 

53. 

AMU 

127 

54. 

INITIAL 

127 

55. 

SWITCH 

128 

56. 

ASCONV 

128 

57. 

BINCON 

128 

58. 

FILLM 

128 

59. 

TERMIN 

128 

60. 

TRMOUT 

128 

FLOW  CHART 
PAGE 

CHARACTERISTICS 

PAGE 

CODE 

PAGE 

154 

210 

251 

156 

210 

259 

157 

210 

253 

158 

211 

254 

159 

211 

255 

160 

211 

257 

162 

212 

259 

163 

212 

259 

165 

212 

263 

166 

213 

264 

166 

213 

264 

166 

213 

265 

167 

213 

266 

168 

214 

271 

168 

214 

272 

168 

215 

272 

168 

215 

272 

169 

215 

272 

169 

215 

272 

170 

216 

273 

170 

216 

273 

170 

216 

273 

171 

216 

273 

174 

217 

276 

180 

218 

267 

180 

218 

267 

180 

219 

267 

181 

219 

267 

183 

NA 

269 

183 

219 

269 

-  120- 


I V .  ^PENDIX  B  -  GROUND  CONTROL  PROGRAMS  (continued) 

TABLE  OF  CONTENTS 


DESCRIPTION 

PAGE 

FLOW  CHART 
PAGE 

CHARACTERISTICS 

PAGE 

CODE 

PAGE 

61. 

TRNSMT 

128 

183 

219 

269 

62. 

RECEV 

128 

184 

220 

269 

63. 

CNVRT 

128 

168 

220 

270 

64. 

CNVRTl 

128 

168 

220 

270 

65. 

RPAGE 

128 

185 

214 

271 

66. 

RBOOK 

128 

185 

214 

271 

67. 

GETLOC 

129 

186 

217 

280 

68. 

GETALL 

129 

187 

221 

282 

69. 

ALLDEF 

129 

193 

221 

284 

70. 

LDBUFF 

129 

194 

222 

284 

71. 

MAIN 

129 

195 

222 

285 

72. 

MEMORY  MAP 

EPROM 

223 

NA 

73. 

MEMORY  MAP 

RAM 

223 

NA 

74. 

I/O  PORTS 

223 

NA 

75. 

FLAGS 

224 

NA 

76. 

BBIMSO 

227 

77, 

BBIMSl 

237 

78. 

BBIMS2 

251 

79. 

BBIMS3 

262 

80. 

BBIMS4 

276 

81. 

BBIMS5 

284 

82. 

LOOK  UP  TABLES 

292 
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GCU  SUBROUTINES 


RSJ_2 


This  subroutine  is  under  the  RESTART!  control.  It  updates  the  hexadecitral 
displays.  The  hexadecimal  characters  in  the  hex-buffer  are  transferred  into 
the  8279  display/keyboard  encoder. 

INT  6.5 


When  the  GCU  operates  in  the  "MAIN"  routine  a  depression  of  any  key  sends 
the  unit  into  this  subroutine.  All  analog  channels  are  reset  to  ZERO,  displays 
are  cleared,  LED  indicatory  are  turned  off  and  the  control  is  transferred  to 
the  executive  program. 

INT  7.5 


The  interrupt  is  acti vita ted  by  the  PCM  byte  counter.  The  subroutine 
orncesses  the  PCM  data.  An  8  bit  data  word  is  transferred  to  the  monitor 
Dort.  An  appropriate  strobe  pulse  is  aenerated.  Also,  the  data  is  stored  into 
one  of  two  buffers.  While  one  of  the  buffers  is  beino  filled,  the  data 
Previously  stored  in  the  other  buffer  is  processed  as  required. 

CMBACK 

This  subroutine  sets  selected  reaisters  and  flags  to  their  initial  conditions 
It  determines  which  function  is  to  be  executed  next,  finds  the  starting 
address  of  the  appropriate  routine  and  transfers  control  to  that  program. 

FRAME 


This  subroutine  establishes  the  PCM  frame  length  and  the  necessary  word 
synchronization  for  decommutation  of  the  pulse  train.  Frame  length  is 
determined  by  counting  the  number  of  eight  bit  words  in  two  consecutive  frames. 
When  agreement  between  the  two  counts  exists  the  task  is  completed  by  assuring 
that  the  frame  length  does  not  exceed  the  PCM  buffer.  Frame  synchronization 
will  not  be  achieved  when  the  frame  length  exceeds  3F  words. 

YORN 


When  a  YES  or  NO  reply  is  required  from  the  keyboard  operator,  this  routine 
is  executed  while  waiting  for  the  answer.  NO  sets  the  CY=1 ,  YES  sets  CY=0. 

MODE 

This  is  an  interactive  program  which  guides  the  operator  through  the 
necessary  steps  to  compose  the  MODE  BYTE  of  an  instruction  set  to  be  transmitted 
to  the  Flight  Control  Unit  (FCU).  It  also  defines  the  amu  stepping  increment 
(PYTE  16H).  In  the  MODE  BYTE  it  sets  the  NO  DOWN,  AMU  or  BIAS  SWEEP,  HI-PASS, 
ACCUMULATION  and  SWITCHING  mode  bits. 


-v.' 
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BIASP  and  BIASS 


These  routines  convert  the  5  primary  or  secondary  bias  values  to  the 
ASCII  code  and  store  these  codes  in  the  appropriate  buffer  locations  before 
transmission  to  the  FCU. 

READ 


The  routine  is  used  to  read  a  character  from  a  terminal  or  from  the  GCU 
keyboard.  Upon  an  entry  a  buzzer  is  activiated.  The  character  code  is 
converted  into  the  binary  code  acceptable  to  the  system. 

NMREAD 

Accepts  only  ESCAPE  (ESC),  BACK  SPACE  (BS),  CARRAGE  RETURN  (CR)  and  NUMBER 
entries.  Any  other  entry  forces  a  new  reading  attempt. 

MOVE 


Transfers  data  from  one  block  of  RAM  into  another  block  of  equal  size. 


CMPDH 


Compares  DE  registers  with  HL.  HL>DE,  CY=1 ;  HL=DE,  CY=0,  Z=l: 
HL>DE,  CY=n,  Z=0. 


ALREAD 


Reads  the  ALPHA-NUMERIC  characters  into  the  display.  Also  responds  to  the 
BS,  ESC,  and  CR  entries. 

BELL 


Activates  the  buzzer  for  a  preset  number  of  loops=X. 
DIRECT 


This  program'  allows  the  operator  to  address  directly  the  entire  memory 
space  of  the  GCU.  Some  or  all  of  the  functions  associated  with  the 
programming  or  manipulation  of  the  memory  may  be  selected  to  operate  in  the 
DIRECT  mode.  CR  after  "DIRECT"  entry  commmits  all  functions.  An  equals 
sign  ("=")  followed  by  a  function  after  the  "DIRECT"  entry  places  only  that 
function  in  the  direct  mode.  More  than  one  function  may  be  commited  to  the 
direct  mode  by  separating  the  functions  with  the  "equals"  sign.  Since  the 
keyboard  on  the  GCU  does  not  contain  an  "="  key,  selection  of  individual 
functions  for  the  direct  access  mode  is  only  possible  when  a  terminal  is  used. 
Also,  the  "DIRECT"  mode  must  be  used  in  conjuction  with  the  "BINARY"  mode 
where  all  numeric  entries  are  in  the  hexadecimal  notation. 

ERROR 


Clears  all  displays,  activates  the  buzzer  and  writes  "ERROR"  in  the 
alnh-numeric  display. 
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ENDIT 


Ends  a  program  and  displays  "END" 

MESSAG 

Displays  a  message  indicated  by  a  pointer  and  a  message  length  counter. 
Also  clears  the  display. 

UkL 

Fills  memory  starting  with  the  address  XXXX  ending  at  YYYY  with  data  11. 
aEARC 

Clears  HEX  displays. 

CIJAR 

Clears  all  displays. 

MANY 


Reads  keyboard  or  terminal  entries  and  displays  same. 
LOOKUP 


Determines  if  the  entered  function  in  the  alph-numeric  buffer  is  valid. 

This  is  accomplished  by  comparing  the  entered  code  with  the  codes  residing  in 
a  look-up  table.  When  a  match  is  found,  the  address  and  other  parameters 
associated  with  the  execution  of  that  function  are  stored  in  appropriate 
buffers  for  further  processing.  Otherwise  an  error  message  is  displayed. 

Since  the  GCU  keyboard  enters  only  one  character,  while  a  terminal  is  allowed 
eight  characters  to  define  a  function,  the  validation  processes  differ. 

APDRES 

Combines  the  entered  numbers  residing  in  the  HEX  display  into  one  word 
representing  an  address  or  a  single  byte  of  data.  The  differentiation 
between  the  two  is  based  upon  the  status  of  the  address  flao  which  is  set 
or  reset  by  the  program  which  calls  the  ADDRES  subroutine.  The  subroutine 
also  warns  the  operator  when  the  MODE  (DIRECT,  INDIRECT....)  has  not  been 
defined.  The  final  result  of  this  subroutine  is  a  word  in  the  binary  code 
acceptable  to  the  machine. 

INDRCT 

The  GCU  is  placed  into  an  indirect  addressing  mode.  Only  2400H  to  2BFFH  RAM 
locations  (0-7FF  entries)  are  accessible  in  this  mode.  When  using  a  terminal 
separate  functions  may  be  defined  to  operate  in  this  mode  by  entering  "="  sign 
after  the  "INDRCT"  entry  and  then  separating  the  functions  by  the  equals  symbol. 
Both  the  BINARY  and  the  DECIMAL  entry  modes  may  be  used. 


BNRY 


Address  and  data  entries  and  displays  are  in  the  hexadecimal  notation.  When 
using  a  terminal  only,  selected  functions  may  be  defined  to  operate  in  this  mode. 
The  process  is  described  under  INDRT. 

DCML 


Address  and  data  entries  and  displays  are  in  the  decimal  notation.  Similar 
to  the  BNRY  process.  Confusion  may  result  when  two  data  bytes  are  displayed  in 
the  same  readout.  Also,  DC.ML  must  be  used  with  the  INDRCT  mode  only  I 

MOVEM 


Moves  data  from  one  block  of  memory  to  another  block.  It  guides  the  operator 
through  the  process. 

CQMPA. 

This  procram  compares  a  block  of  data  with  another  block  of  data.  When  a 
mismatch  is  encountered  the  address  and  the  data  byte  in  the  second  block  are 
displayed.  In  this  routine  the  first  block  is  considered  to  be  the  "Known". 

COMPD. 

Compares  a  block  of  data  with  a  given  constant.  Mismatched  data  byte  with 
its  address  are  displayed. 

COMP SB. 

Is  used  to  display  an  address  and  associated  data.  Returns  to  the  calling 
proaram/subroutine  only  after  CR  command  is  received. 

ALTR. 


This  program  is  used  to  display  and  to  alter  data  in  a  given  memory 
location.  The  routine  asks  the  operator  for  an  address.  It  displays  the  address 
and  the  present  data.  New  data  may  be  entered  in  the  GCU.  It  overwrites  the  old 
data  upon  CR.  At  the  same  time  the  address  is  incremented  by  one  and  displayed 
with  the  data  present  in  the  new  location. 


GETDAT. 


Fetches  one  byte  from  an  input  device.  When  an  error  is  detected  the  buzzer 
sounds  and  the  routine  is  repeated  unless  the  "return  on  CR"  flaa  has  been  set 
by  the  calling  program.  In  the  latter  case  the  routine  is  terminated  and  the 
control  is  returned  to  the  calling  program. 


DECBIN. 


Converts  four  digit  decimal  number  into  a  13  bit  binary  number. 

DIS^. 

This  routine  is  only  used  in  conjunction  with  a  CRT  terminal.  It  displays  a 
block  of  memory  startinq  with  an  XXXO  address  followed  by  8  bytes  of  data.  The 
next  8  bytes  will  be  preceeded  by  XXX8  address.  The  process  is  repeated  until 
the  end  address  (YYYF)  is  detected. 

FEPR0,M. 

Moves  data  from  two  predetermined  memory  blocks  to  a  circuit  simulating 
two  EPROM'S.  Two  memory  mapped  output  ports  are  utilized. 

TTYLNK. 

Maintains  communications  between  the  Flight  Control  and  the  Ground  Control 
units.  The  routine  waits  for  an  ENQ  character  from  the  balloon  package.  Once 
that  inouiry  has  been  received,  the  routine  repeats  a  message  to  the  balloon  unit 
three  times.  Each  messaoe  starts  with  STX  and  ends  with  EfX  characters.  ASCII 
characters  are  used.  An  echo  is  expected  from  the  airborne  unit,  A  time  limit 
is  set  on  each  communications  attempt  to  avoid  a  permanent  or  a  prolonged  loop 
in  case  of  a  link  failure. 

BINDEC. 

Converts  four  digit  hexadecimal  number  into  a  four  digit  decimal  number. 


GOJO. 


Transfers  processor  control  to  a  new  location. 

DSDATA. 

Displays  a  byte  as  two  hexadecimal  characters  on  the  alphanumeric  display 
When  in  decimal  mode  binary  to  decimal  conversion  is  carried  out  and  a  three  digit 
number  is  displayed 

DSAODR. 


Displays  the  address  as  a  four  diqit  number  in  the  alphanumeric  display  or 
on  CRT  terminal.  Adjustments  for  the  direct  or  the  decimal  modes  are  performed. 

BAUD. 


Sets  the  baud  reate  to  accommodate  the  terminal.  Baud  rates  of  75,  110,  300, 
600,  1200,  2400,  and  9800  are  possible. 


NPAGE 


Prepares  the  TTY  Buffer  to  transmit  the  "Run  a  New  Instruction  Set"  Command. 

DUMP 

Prepares  the  TTY  Buffer  to  transmit  the  "Dump  the  RAM"  Command. 

CONT 

Stores  the  "Continue"  command  into  the  TTY  Buffer. 

WAIT 

Stores  the  "Wait"  command  into  the  TTY  Buffer. 


RATIO 


Prompts  the  operator  to  supply  the  RATIO  information  to  be  transmitted  to  the 
FCU  in  conjuction  with  the  NPAGE  command. 

MASK 


Prompts  the  operator  to  supply  the  Mask  byte  information  for  transmission  to 
the  FCU  with  the  NPAGE  command. 

IDNUM 


Asks  the  operator  for  the  program  ID  to  be  transmitted  to  the  FCU  as  a  part 
of  the  NPAGE  command. 

LOP 


Asks  for  the  number  of  loops  that  an  instruction  set  has  to  be  repeated. 
Part  of  the  NPAGE  command  sequence. 

TIME 


Requests  the  "Dwell  Time"  information.  NPAGE  command  sequence. 


AMU 


Information  to  define  the  AMU  scan  is  requested.  Part  of  the  NPAGE  command 
sequence. 

INITIAL 


Initializes  the  PCM  decommutation  system.  Assigns  the  displays  to  the 
specified  PCM  frame  words.  Also,  defines  the  qualifiers  for  the  display 
updating  process. 
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SWITCH 

Switches  control  between  the  GCU  and  a  terminal. 

ASCONV. 

Converts  ASCII  into  system  binary. 

BINCON. 

Converts  system  binary  into  ASCII. 

FILLM. 

Fills  a  memory  block  with  a  given  byte. 

TERMIN. 

Reads  data  from  terminal.  When  the  "RETURN"  flag  is  set,  returns  to  calling 
routine  without  converting  the  data  into  the  system  binary  code. 

TRMOUT. 

Transmits  a  data  byte  to  terminal. 

TRNSMT. 

Transmitts  data  from  GCU  to  the  FCU  via  USART. 

RECEV. 

Receives  data  from  FCU.  Checks  for  the  communications  time  limit. 

CNVRT. 

Converts  a  word  into  four  ASCII  characters.  Stores  the  characters  starting 
with  the  address  indicated  by  another  routine. 

CNVRTl . 

Converts  a  byte  into  two  ASCII  characters.  Stores  the  characters  starting  with 
an  address  indicated  by  another  routine. 

RPA^. 

Prepares  the  TTY  Buffer  to  transmit  a  "Run  an  Instruction  Set"  Command, 

RBOOK. 

Prepares  the  TTY  Buffer  to  transmit  a  "Run  a  Program"  Command. 
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GETLOC 


Receives  a  data  byte  from  operator.  When  the  byte  represents  a  number  less 
than  40H  an  offset  is  added  to  that  byte  before  returning  to  the  calling 
routine.  When  this  condition  is  not  met  error  message  is  displayed  and  the  CPU 
control  is  returned  to  the  calling  routine. 

GETALL 


Prompts  the  operator  to  define  various  parameters  for  each  display  or  analog 
channel.  This  information  is  stored  in  the  decom  buffer  for  later  use. 

ALLDEF 


This  routine  checks  the  status  of  the  various  flags  associated  with  the 
decommutation  process.  The  SUBFRAME  ID  match  to  a  predetermined  number  is  also 
checked.  When  all  of  the  necessary  conditions  are  met  for  a  particular 
byte/word  of  the  PCM  frame,  the  address  of  that  byte/word  located  in  a  buffer 
designated  during  the  initialization  process  is  transmitted  to  the  calling  routine. 

LDBUFF 


This  routine  waits  for  a  PCM  buffer  to  fill.  Then  the  contents  ef  that 
buffer  are  transferred  to  a  new  buffer  for  processing.  The  address  of  the 
Frame  Sync  Word  is  determined. 

MAIN 


Forms  the  main  PCM  decommutating  system.  Transfers  data  to  the  designated 
displays.  Receives  and  responds  to  messages.  Determines  and  keeps  track  of 
frame  and  word  synchronization. 
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SET  STACK  POINTER 
TO  STACK  TOP 


A 


1  LOOP  COUNTER 

t 


Y 

START  THE  8 
BIT  CLK  COUNTER 


- 

RESET  INT  7.5 
FP  FLAG 


INPUT  PCM  BYTE 


FRAME  SYNC 

•7 


I 


FRAME 


FRAME"  CONT. 


DOWN  ? 


FLAG 


f  CALL  ^ 
V  "YORN"  J 


CONVERT  VALUE 
TO  ASCII.  STORE 


/  CALL  N 
\  "ENDIT"^* 


"MODE"  CONT. 
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BEGIN 


( 


REPLACE  WITH 
ASCII  CR 


:  REMOVE  TOP 

i  TWO  BITS 


"READ"  CONT. 


BEGIN 


CMPDH 


BEGIN 


ALREAD 


begin 


CLEARS "  "CLEAR 


ENTRY  COUNTER 
=8 


GET  ADDRESS 
OF  THE  FUNCTION 

pGET  "status  address 

I  OF  THE  FUNCTION 


CALL 

"ERROR" 


SET  ERROR  FLAG 


..x: 


DISPLAY  THE 
FUNCTION 


BEGIN 


GET  FUNCTION  (F) 
FROM 

LOOKUP  TABLE 


TROM  LOOKUP 

F  IN  DISPLAY 
'S.  BUFFER  . 


GCU 

ACTIVE 


^^MORE 

THAN  ONE  ^ 
CHARACTER  IN 
DISPLAY ■ BUFFER 


;et  single  key  stoke 

FUNCTION  DEFINITION 
FROM  lookup  TABLE 


EQUAL 

’^TO  CHARACT. 

IN  ALPHANUM, 
J)ISPLAY  BUFFER 


POINT  TO  NEXT  F 
IN  LOOKUP  TABLE 


"LOOKUP" 


A 


"ADORES" 


CONT. 

I 


-  150  - 


CALL 


INDRCT' 


ENTRY 


BEGIN 


LAST  '■ 
ENTRY  AN 


make  the  entry 

A  T 


CALL 

"DIRECT" 


MIN>  MAX 


RETURN  TO 
EXECUTIVE 


BEGIN 


ADDRESS  COUNTER 
=  0 


ADDRESS  COUNTER  = 
ADDRESS  COUNTER  +  1 


NEW  MIN 


"ADDRES"> 


ADRS 

COUNTER 


OLD  ,MAX 
< 

OLD  MIN 


"MOVEM" 


OLD  MIN 


OLD  MAX 


N 


/'  CALL  \ 


_/  CALL 
"ENDIT 

.J. 

RET 


'TTYLNK' 


BEGIN 


I  DECIMAN  NUMBER 

L._.. . :» . 


BEGIN 


JUMP  TO  I  JUMP  TO  1  ;  JUMP  TO  j  JUMP  TO 

MAIN  PROGRAM  j  M,\TN  PROGRAM  !  MAIN  PROGRAM  !  MAIN  PROGRAM 


RATIO  /  begin 


BEGIN  BEGIN 


”1  DNI'M' 


r 

^  AO-AilS  399  NORTHEASTERN  UNXV  BOSTON  MASS  ELECTRONICS  RESEARCH  LAB  F/9  7/% 
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UNCLASSIFIED  AF6L-TR-a2-0056  NL 

■ 

1 

3^  ^4 

■ 

1 

1 

1 

1 

_ 1 

I 

MICROCOPY  RESOLUTION  TEST  CHART 


START? 


ERROR 


B 


”AMU"  CONT, 
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SET  "TWO  BYTES" 


STORE  IN  DECOM 
BUFFER 


STORE  IN  DECOM 
BUFFER 


"GETLOC" 
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CONT 


f  CALL 
{  "GETALL"  ) 


^  Y 

• 

<r  ENTRY 

> - 

STORE  IN  DECOM 
BUFFER 


DISPLAYS 3? 


(CALL^\ 
"GETALL" J 


'  CALL 
"GETALL" 


"INITIAL"  CONT. 


177 
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SET  "RETURN  ON 
CR"  FLAG 


INITIAL"  CONT 


FILLM"  CCNT. 


RETURN  TO  j  •;  RET  j  RET 

D"  SUBROUTINE  i  ' 


STORE  "ETX" 

CHARACT.  IN  TTY  BUFFER 


JUMP  TO  MAIN 
PROGRAM 


"RPAGE",  "RBOOK" 
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SET  NO  ENTRY 
FLAG 


L 

) 

r 


j 


RESET  ALL 
PARAMETERS 


RETURN  TO 
EXECUTIVE 


SUBID  CNTR= 
0 


M 


SET  "RETURN 
ON  CR"  FLAG 


I 


"GETALL"  CONT 


"GETALL"  CONT 


N 

DISPLAY  TO  BE  "■>— 
USED 


? 


"DATA 

VALID"  NEEDED 
? 

'  N 

•  -» - 

r 

SUBID 

MATCH 

NEEDED 


IS 

THE  DATA 
VALID 


ANY 

'  SUBID' S  MATCH 
PRESENT  SUBID 


RET  ) 


SET  BYPASS  FLAG 


RET 


"ALLDEF 


1.1.4.^  I. ..  I-I  iiiiii-miiuuiiMnii  un  ,  ^  rn^mm 


"LDBUFF" 
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POINT  TO  DISPLAY 
ONE  PARAMETERS 


"MAIN"  CONT. 
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DIVIDE  AMU  BY 
4 


CALL 

"ALLDEF 


1 


G 


itvn 


TYPE;  S 

UHROU'i'lNK. 

EMTKK: 

CONDITIONS. 

RLY'l  'liU : 

HKOISTERS 

NOT 

affkcthj. 

MEMORY : 

3SUO  -*■  MAK  MI-MfiHY 

;LOOK  UP  TABLES. 

IRlR  ,’7 

; DISPLAY  BUFFER. 

I/O  FOR'] 

S :  81 

; DISPLAY  CONTROLLER  COMMAND. 

80 

; DISPLAY  CONTROLLER. 

/Y 

TYPE:  TNTERUPT. 

ENTER; 

NO  CONDITIONS. 

RETURN: 

REGISTERS 

NOT 

AFFECTED. 

COMMENT; 

INT  7.0  MUST 

BE  MASKED,  AND  TNTERUPTS  MUST  BE  ENABLED 

MEMORY : 

18EO-1 

1860-01'' 

18E2 

18E3 

; CONTAINS  BUFFER  POINTER  ADDRESS 
;TM  BUFFER. 

: BYTES  IN  TM  FRAME. 

;"TM  BUFFER  FULL"  FLAGS. 

I/O  rORTr.:  AO  ;PCM  INPUT 

A1  ; PCM  MONITOR 

A3  ; MONITOR  STORE. 


TYPE : 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN ; 

;  NO  RETURN,  JUMPS  TO 

CALLED  PROGRAM. 

.SP  IS  POINTING  AT  " 

CMBACK." 

MEMORY: 

:  1848 

; ADDRESS 

STATUS  FLAG 

18i:a 

; "TRMIN" 

FLAG. 
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L 


FRAME 


TYPE;  SUBROUTINE. 

ENTER;  NO  CONDITIONS. 

RETURN:  PSW  AFFECTED. 

PC  AFFECTED. 

H  AFFECTED. 

INTERUPTS  ENABLED. 

INT  7.5  ON 

MEMORY;  18E2 

I/O  PORTS;  AO 
A3 

YORN 

type;  SUBROUTINE. 

ENTER;  NO  CONDITIONS. 

RETURN;  CY=1  FOR  "NO"  ENTRY. 

CY=0  FOR  "YES"  ENTRY. 
PSW  AFFECTED. 

MEMORY:  182A-B 


MODE 

TYPE:  PROGRAM. 

ENTER;  NO  CONDITIONS. 

RETURN;  ALL  AFFECTED. 

MEMORY:  MESSAGE  33 

MESSAGE  34 
MESSAGE  35 
MESSAGE  36 
MESSAGE  37 
MESSAGE  41 
MESSAGE  42 
2409 
19C4-5 
2415 
19DC-D 


;TM  FRAME  LENGTB. 

;PCM  INPUT. 

;INTERUPT  CLOCK  RESET. 


•/’ESCAPE"  ADDRESS. 


;MODE  WORD  FOR  BALLOON. 

-.MODE  WORD  (ASCII)  FOR  BAI.LC'ON. 
;STEPPING  VALUE  FOR  BALT.OON. 
STEPPING  VALUE  (ASCII  )  FSiR  I'AL 


BIASP 


TYPE:  PROGRAM. 


ENTER: 

NO  CONDITIONS. 

itETURN 

ALL  RP.'GISTERS  AFFECTED. 

MEMORY 

MESSAGE 

3H05 

; SIXTH  DISPLAY  DIGIT,  HEXIDECIMAL. 

<?40A-E 

; PRIMARY  BIASES  FOR  BALLOON. 

19C4-D 

;PRD4ARY  BIASES  (ASCII)  FOR  BALLOON. 

BIASS 

TYPE : 

PROGRAM. 

ENI'ER : 

NO  CONDITIONS. 

RETIIR’N 

ALL  REGISTERS  AFFECTED. 

MEMORY 

MESSAGE  38 

380‘.) 

: SIXTH  DISPLAY  DIGIT,  HEXADECIMAL. 

240F-13 

; SECONDARY  BIASES  FOR  BALLOON. 

19CE-D7 

; SECONDARY  BIASES  (ASCII)  FOR  BALLOON 

READ 

TYPE: 

SUBROUTINE. 

ENTER: 

NO  CONDITIONS. 

RETURN 

FLAGS  AFFECTED. 

ACC  CONTAINS  INPUT  ENTRY. 

MEMORY 

I85i> 

;KfPfBOARD/TERMINAL  FLAG. 

i84D 

; CLEAR  DISPLAY  FLAG 

18EA 

; ASCI I  CONVERT  FLAG. 

I /'"I  PORT.'’,:  91 

;USART  COMMAND. 

<)0 

;LISART. 

rtl 

; KEYBOARD  COMMAND. 

80 

; KEYBOARD. 
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NMREAD 


TYPE: 

SUBROUTINE. 

ENTER: 

NO  CONDITIONS. 

RETURN: 

ACC  CONTAINS  NUMBER. 
FLAGS  AFFECTED. 

MEMORY: 

1818-lD 

182A-B 

;HEXADECIMAL  DISPLAY  BUFFER. 
;ALL  PURPOSE  ESCAPE  ADDRESS. 

MOVE 

TYPE:  SUBROUTINE. 

ENTER:  HL  CONTAINS  BEGINNING  OF  BLOCK  TO  BE  MOVED. 

DE  CONTAINS  END  OF  BLOCK  TO  BE  MOVED. 

BC  CONTAINS  BEGINNING  OF  BLOCK  TO  BE  MOVED  TO. 

RETURN:  HL  EQUAL  TO  DE. 

BC  CONTAINS  LAST  LOCATION  OF  BLOCK  TO  BE  MOVED  TO. 
PSW  AFFECTED. 


CMPDH 

TYPE:  SUBROUTINE. 

ENTER;  HL  CONTAINS  DATA  TO  BE  COMPARED  TO  DE. 

DE  CONTAINS  DATA  TO  BE  COMPARED  TO  HL. 

RETURN:  ACC  AFFECTED. 

CY=1  Z=0  HL  >  DE 
CY=0  Z=0  HL  <  DE 
CY=0  Z=^l  HL  =  DE 


ALREAD 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ACC  CONTAINS  ALFA-NUMERIC  CHARACTER. 

FLAGS  AFFECTED. 

MEMORY:  1810-7  ; ALFA-NUMERIC  DID;'>?IAY  P'Hl'T 

182A-B  ;EXECUTIVE  JUMP  ADDRES.’’. 


-  205  - 


liKL:. 


TYPE:  nilDROUTINE. 

ENTER:  HI,  CdNTATNS  RELATTVE  TIME  FOR  BELL  TO  RING, 
RETHiiN:  IIL  AFFECTED. 

I/T  PORTvG;  D3  ;TURN  ON  FOR  BELL. 

DIRECT 


TYPE : 

PROGRAM. 

ENTER: 

NO  CONDI TONG. 

RETURN : 

ALL  REGISTERG  AFFECTED 

1. 

MEMORY: 

1810 

;IJIST  ENTRY  OF  DISPLAY  BUFFER 

1800-F 

; STATUS  LOCATIONS. 

ERROR 

TYPE; 

SUBROUTINE. 

ENTER: 

NO  CONDITIONS. 

RETURN: 

HL  AFFECTED. 

PvSW  AFFECTED. 

MEMORY; 

MESSAGE  9. 

END  IT 

7VPE: 

SUBROUTINE. 

ENTi'H : 

NO  CONDITIONS. 

RETURN: 

PSW  AFFECTED. 
ilL  AFFECTED. 

'h :  : 

fjD'ISSAGE  10. 

■.'Ar.F 

.  'I.'  • 

.■■UilH<'nTrNF.. 

*r.  ;',m'  : 

ill,  POINTS  TO  iiEGINNING 

OF  ASCII  STRING. 

A  CO  contain;'  NUMBER  OF 

CHARACTERS. 

HL  AFFECTED. 

PSW  AFFECTED. 

; ALPHA-NUMERIC  DISPLAY. 
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FILL 

TYPE:  SUBROU'^INE. 

ENTER:  HL  CONTAINS  BEGINNING  OF  BLOCK  TO  RE  FILLED. 
DE  CONTAINS  END  OF  BLOCK  TO  BE  FILLED, 

ACC  CONTAINS  DATA  TO  BE  PUT  INTO  BLOCK. 


return;  psw  affected. 

HL  EQUAL  TO  DE. 
MEMORY:  I84C 
CLEARS 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 
RETURN:  ALL  REGISTERS  OK. 
I/O  PORTS:  81 
CLEAR 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  OK. 

MEMORY:  3800-7 
1810-27 

I/O  PORTS:  81 

MANY 

TYPE:  SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURI'I:  B  CONTAINS  NUMBER 
PSW  AFFECTED. 

MEMORY:  1855 
184D 


:TEMP.  BUFFER. 


jHEXIDKCIfML  DISPLAY  COMM/iNL' 


sALPHA-NUMEI-ilC  DISFIAY. 

;ALL  DISPLAY  BUFFERS. 

.'HEXIDECIMAL  'USPL/iY  COWAND 


OF  ENTRIES. 

;GCU/TERJVIINAL  FLAG. 
; "CLEAR:  FLAG. 


-  207 


LOOKUP 


TYPE:  OUBHOUTINE. 
ENTER:  NO  CONDITIONS. 


RETURN:  IE  CY' 0 

TiiEN  HI,  CONTAINS  ADDRESS  OF  ROUTINE. 

DE  CONTAINS  ROUTINES  STATUS  ADDRESS. 
ACC  CLEARED. 

FLAGS  AFFECTED. 

BC  AFFECTED. 

IF  CY=1 

THEN  ALL  REGISTERS  AFFECTED. 


ALL  LOOKUP  I' ABLE 


1810-7 

; ALFA-NUMERIC  DISPLAY  BUFFER. 

1855 

; "TERMINAL/GCU"  FLAG. 

3800-7 

; ALFA-NUMERIC  DISPLAY. 

ADDRES 

TYPE : 

SUBROUTINE. 

ENTER:  NO  CONDITIONS. 

RETURN:  IF  CY--0 

THEN  DE  CONTAINS  ADDRESS. 

ALL  OTHER  REGISTERS  AFFECTED. 

IF  CY=1,  8=*^ 

THEN  MGi)E  ERROR,  ALL  REGISTERS  AFFECTED. 

IF  CY=3.  B  5 

THEN  GENERAL  ERROR,  ALL  REGISTERS  AFFECTED. 

MEMORY:  1S18_F  ; ALFA-NUMERIC  DISPLAY  BUFFER. 

1^48  ; "ADDRESS/DATA"  FLAG. 

INDRCT 

TYPE:  PROGRAM. 


ENTER:  NO  CONDITIONS. 

RIITURN:  ALL  REGISTERS  AFFECTED. 


MEMORY:  1810 

IHOO-F 


;LAST  ENTRY  INTO  ALFA-NUMERIC  DISPALY  BUFFER. 
; STATUS  LOCATIONS. 
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BNRY 


TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN; 

;  ALL  REGISTERS 

AFFECTED. 

MEMORY: 

:  1810 

1800-F 

;LAST  ENTRY  INTO  ALEA-NUI4E1UC 
: STATUS  LOCATIONS. 

DISPLAY 

DCML 

TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITONS. 

RETURN: 

ALL  REGISTERS 

EFFECTED. 

mroRY: 

1810 

1800-F 

;LAST  ENTRY  INTO  ALFA-NLM-RIC 
; STATUS  LOCATIONS. 

DISPLAY 

mmi 

TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN: 

ALL  REGISTERS 

AFFECTED. 

MEMORY: 

MESSAGE  1 . 
MESSAGE  2. 
MESSAGE  3 • 
MESSAGE  4 . 
182A-B 

;ALL  PURPOSE  ESCAPE  LOCATION. 

COMPA 

TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN : 

ALL  REGISTERS 

AFFECTED. 

MEJ/ORY : 

184E 

MESSAGE  6. 
MESSAGE  11. 
MESSAGE  4. 
182A-B 
MESSAGE  5. 

:"MEK’ORY  VERSUS  MEMORY"  Fl.AG. 

;ALL  PURPOSE  ES^CAPE  i.rn'ATTON. 

r 


COMPD 

TYPE:  PRDORM/I. 

ENTEii;  NO  CONDITIONS. 

RKTliRN:  ALL  REGISTERS  AFFECTED. 

mmUY:  MESSAGE  4. 

MESxGAGE  5. 

MESSAGE  6. 

MESSAGE  11 
184E 
182A-B 

COMPSB 

TYPE:  SlJhROUTINE. 

EN'I'ER:  ACC  CONTAINS  DATA  TO  BE  DISPLAYED. 

EC  CONTAINS  ADDRESS  TO  BE  DISPUTED. 

RETURN:  ALL  REGISTERS  OK. 


:  "MEMORY  VERSES  MEMORY"  FUG. 
;ALL  PURPOSE  ESCAPE  LOCATION. 


ALTR 


TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 

;  "RETURN  ON  CR"  FUG. 

;ALI,  PURPOSE  ESCAPE  ADDRESS. 


MEMORY : 

MESvSAGE 

1849 

182A-B 

MESSAGE 

9 
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GETDAT 


TYPE:  SUBROUTINE. 

ENTER;  NO  CONDI TONS. 

RETURN:  IF  CY=1,  B=5 

THEN  MODE  ERROR,  ALL  REOI.STERS  AFFECTED  KXCET’T  1!L. 

IF  CY=1,  D  5 

THEN  GENERAL  ERROR. 

IF  CY=0 

THEN  ACC  CONTAINS  DATA. 

HL  OK. 

ALL  OTHER  REGISTERS  AFFECTED. 


NEMORY : 

■  1B4B 

MESSAGE  7. 

1849 

; "ADDRESS/DATA "  FIAG . 

; "RETURN  ON  CR"  FLAG. 

DECBIN 

TYPE; 

SUBROUTINE. 

ENTER: 

HL  CONTAINS  DECIMAL 

NUMBER. 

RETURN: 

HL  CONTAINS  BINARY 

NW.IBER. 

MEMORY; 

184A-B 

;TEMP.  BINARY  EQUIVALENT  STORAGE 

184F  ;TEMP.  STORAGE  OF"BIN"LSBYTE. 

"BIN" -END  OF  "BIN"  :  POINTS  TO  DECIMAL  EOUIVALIINCK 
MESSAGE  9. 

1S2A-B  ;ALL  PURPOSE  ESCAPE  ADDRESS. 

DISPL 

TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 

MEMORY; 

MirSAGE 
ISSA-B 
MESSAGE  5. 

MESSAGE  A. 

I/O  pORir.;  G  ;USART  COMMAND'. 

: US ART. 


; "CONSOLE/TEIMINAL"  FLAG . 
;ALI,  PURPOSE  ESCAl’E  ADDRESS. 
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TYPE:  PROGIiAM. 


ENTER;  NO  CONblTlONS. 

RETURN:  ALL  HEOTSTERL,  AFFECTED. 


MEMORY;  R400-RFF 
FEOO-E'FFl' 


; CONTAINS  DATA  FOR  FAKE  EPROM. 
;FAKE  EPROM. 


I/(!  PCRTO:  A3 


;"eprom/Ram"  flag. 


TTYLNK 


TYPE:  SUBROUTINE.. 

ENTER.:  NO  CONDITIONS. 

RETURN:  C  IS  OK. 

ALL  OTHER  REGISTERS 

MEMORY:  1H2S 

18P0 
19AE-F 
19BO-DF 

I/O  PORTS:  D3 
D2 
90 
Cl 
CO 

PINDEC 

TYPE:  SUBROUTINE. 


AFFECTED. 

;LOOP  COUNTER. 

;  "USAR.T/PCM  LINK"  FLAG. 
;ADDRF5S  OF  TTY  DATA. 

;DATA  TO  BE  SENT  TO  BALLOON. 

.•COMMAND  FOR  "TIME-OUT"  TIMER. 
; "TIME-OUT"  TIMER. 

: SYSTEM  USART. 

;TM  USART  COMKWND. 

;TM  USART. 


ENTER:  DE  CONTAINS  BINARY  DATA. 

RETURN:  DE  CONTAINS  DECIMAL  EQUIVELENT 


MEMORY:  I84F 

iS2C 

"BIN"-END  OF  "BIN 


BIT  COUNTER. 

"MSBYTE  PROCEESSED"  FLAG. 
DECIMAL  EQUIVALENCES. 


I 

4 

i 


GOTO 


TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN: 

DOES  NOT  RETURN. 

COMMENT 

':  PC  IS  MODIFIED. 

MEMORY: 

MESSAGE  5. 

DSDATA 

TYPE: 

SUBROUTINE. 

ENTER: 

ACC  CONTAINS  DATA  TO  BE  DISPLAYED. 

HL  CONTAINS  STATUS  ADDRESS  OF  CALLING 

ROUTINE. 

RETRUN: 

NO  REGISTERS  AFFECTED. 

MEMORY: 

STATUS  OF  CALLING  ROUTINE. 

3805-7  ;ALFA-NUMERIC 

DISPLAY. 

DSADDR 

TYPE: 

SUBROUTINE. 

ENTER: 

DE  CONTAINS  ADDRESS  TO  BE  DISPLAYED. 
HL  CONTAINS  STATUS  ADDRESS  OF  CALLING 

ROUTINE. 

RETURN: 

NO  REGISTERS  AFFECTED. 

MEMORY: 

STATUS  OF  CALLING  ROUTINE. 

3800-3803  ;ALFA-NUMERIC 

Disrr.AY . 

BAUD 

TYPE: 

PROGRAM. 

ENTER: 

NO  CONDITIONS. 

RETURN: 

ALL  REGISTERS  AFFECTED. 

MEMfRY: 

MESSAGE  13 

1850  ;FAKE  O.TATUr  ADl'RKr;'. 


I/O  PORTS:  D3 
DO 


;SYvSTIM  USAHT  Cl.OCK  OOMMANl 
;SYSTEM  USAHT  Cl/ 'OK. 


RPAni'.' 


TYPE:  PWnOKMt 
ENTEK:  NO  CONDI TONE. 

RETURN:  DOES  NOT  RETURN  UNLESS  IN  ERROR:  THEN  ALL  REGISTERS  AFFECTED. 

COf.t.T-NT:  JilllPS  INTO  MAIN  ROUTINE. 

in'M'TiY:  IfL'l'  ;  "PAGE/BOOK"  FLAG. 

MESSAGE  IPA 

134F  ;TEMP.  FAKE  STATUS. 

19B0-2  ; LOCATIONS  OF  BALLOON  TM  BUFFER. 

liB(  )(1K 

TYPE :  PH0GRAI,1 
ENTER:  NO  CONDITIONS. 

RIT'ilRN:  DOES  NOT  RETURN  UNLESS  IN  ERROR;  THEN  ALL  AFFECTED. 

COMIvIENT:  JUMPS  INTO  MAIN  ROUTINE. 

MEMORY:  lS2F  :PAOE/BOOK:  FLAG. 

MESSAGE  12A 

184F  ;TEMP.  FAKE  STATUS. 

19B0-2  ; LOCATIONS  OF  BALLOON  TM  BUFFER. 

NKAGF 

TYPE:  PROGRAT/. 

ENTER:  NO  CONDITIONS. 

RETURN:  DOES  NOT  RETURN. 

Ca)MJv1NI:T:  JUMRO  INTO  MAIN  ROUTINE. 

f.OMOHY:  1OB0-.''  ; LOCATIONS  OF  BAI.LOON  TM  BUFFER. 

rrPF:  PROO.RAM. 

ENTER:  No  CONDITIONS. 

RETURN:  DOITS  NOT  RKTURN. 

COMMT'INT:  JUMPS  INTO  MAIN  ROUTINE. 

MKMdA’:  19B0-2  ; LOCATIONS  OF  BALLOON  TM  BUFFER. 


CONT 


TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  DOES  NOT  RETURN. 

COMMENT::  JUMPS  INTO  MAIN  ROUTINE. 

MEMORY:  19B0-2  ; LOCATIONS  f)!' 


BALLOON  TM  i’UFFER- 


WAIT 

TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  DOES  NOT  RETURN. 

COMMENT:  JUMPS  INTO  MAIN  ROUTINE. 

MEMORY:  19B0-2  ; LOCATIONS  OF  BALL:>ON  Tf.f  PUFFER 

RATIO 


TYPE: 

PROGRAM, 

ENTER: 

NO  CONDITIONS. 

RETURN; 

;  ALL  REGISTERS. 

MEMORY ; 

;  MESSAGE  31 • 

1S09 

2407-S 

; CONTAINS  STATUS,. 

;  STORAGE  OF  DATA  FOR  l)S>ER 

MASK 

TYPE:  PROGRAfv/I. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 
tJEMCRY:  MESSAGE  31  . 

2414  ;S.’i'nRAC.K  OF  DATA  F(  T’  urKD. 


KNTER:  NO  CONOTTIONO. 


RETURN:  ALL  KKOTOTER;'  AFFECTED. 

MOAiRY:  MPinOAOE  31. 

041 A-7  ; storage  OF  DATA  FOR  USER. 


T.4'P 


TYPE:  PROGRAM. 

ENTER:  N(;  CONDITIONS. 


REi'lIRN:  ALi.  REGISTERS  AFFECTED. 

MEMORY:  MESSAORJ  31. 

.’404  ; STORAGE  OF  DATA  FOR  USER. 


TL'^ 


TYPE:  PFiOGitAIjI. 

ENTER:  NO  CONDI TONS. 

RETURN:  ALL  KEGTSTERS  AFFECTED. 

MEMORY:  MESSAGE  Jl. 

ISO9  ; CONTAINS  STATUS. 

2404-6  ; STORAGE  OF  DATA  FOR  USER. 

AMU 


TYl’E: 

PROGRAM. 

ENTER : 

NO  CONDITIONS. 

RETURN: 

;  ALL  REGISTERS  AFFECTED. 

r#;M()HY; 

:  MliSSAGE  30. 

MEvSSAf’.E  3J  . 

MF'S.SAGE  32. 

1800 

2400-3 

; CONTAINS  STATUS. 

.STORAGE  OF  DATA  FOR  USER. 

INITAL 


TYPE:  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 


MEMORY: 


ISEB 

MESSAGE  22. 
18E4-9 
MESSAGE  21. 
MESSAGE  23. 
MESSAGE  24. 
3806-7 
1908-F 
MESSAGE  25. 
1809 

MESSAGE  26. 

1916-9 

1922-5 

192E-31 

MESvSAGE  28. 

196A-B 

197A-B 

1946-7 

1952-3 

195E-F 

MESSAGE  29. 

1849 

19AE-F 

MESSAGE  39. 

1829 


;''TWO  BYTE  DEFINITION”  FIAG. 

; STORAGE  01'  AL>DRESSES,  FOR  I’M  DATA 


; ALFA-NUMERIC  DISPIAY. 

.'STORAGE  (’'F  ADIiRKS>S,  FOR  Tl/  1;AI'A  . 

; CONTAINS)  STATUS. 

; STORAGE  OF  ADDRESSES  FOR  TV.  DATA 
;  STORAGE  OF  ADDRESS.ES  FOP  TM  DATA 
: STORAGE  OF  ADDRESSES  FOR  TM  DATA 

: STORAGE  OF'  ADDRESS.  FOR.  TM  DATA. 
STORAGE  OF  ADDRES.S  F'NI  TM  DATA. 
'.STORAOE  OF  ADDRESS  FOR  IM  DATA. 

: STORAGE  OF  ADDRRSS  FOR  TV  DATA, 

; STORAGE  OF  ADDRKSS  FOR  "M  DATA. 

;”ADDRES.S./DATA"  FLAG, 

; STORAGE  OF  ADDRKSS.  ROR  TM  DATA. 

;”IM/US/\RT"  EMG. 


GETLOC 


TYPE:  SUBRC'UTINE 


ENTER:  H.E  CONTAINS  ADDRESS  OF  ME.SSAGE. 

ACC  CITITAINS  LENGTH  OF  MF..' AGE. 

RETURN:  IF  oy-l 

THEN  ERROR  HAS  OCCURRED. 

ALL  REGISTERS  AFFECTED. 

IF  CY-'J 

THEN  A^C  CONTAINS  L'U'V'n.;  /.DljRES.'L 
HI.  AFFECTED. 

FLAGS-  AFFECTED. 
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TYPE: 


r'ROnfiTlM. 


ENTER:  NO  CONUTTIONE. 

REiTI-RN:  APT,  REGIE, TKH8  AFFECTED. 


I/O  POltt'E:  H. 


1  1 ; 


-;UiiROUTTNE. 


:  "  TEIIMT  NAL/CONEOLK  '■ :  FLAG . 

;COW.GOLE/TERMINAL  LED  MONITOR 
;CONEnLE/TERMINAL  LED 


enter::  ACC  CONTINAS  AOCTT  CHARACTER  T'O  i^E  CONVERTED  INTO  SYFTEM  BINARY. 


RETURN;  FLAGS  AFFECTED. 

ACC  CONTAINS  SYSTEM  HINA}?Y. 


BINCON 


TYPE;  SUBROUTINE. 

ENTER;  ACC  CONTAINS  SYSTEM  BINARY  TO  BE  CONVERTED  INTO  ASC IT . 
RETURN:  FLAGS  AFFECTED. 

ACC  CONTAINS  ASCII 

FILLM 

TYPE;  PROGRAM. 

ENTER:  NO  CONDITIONS. 

RETURN:  ALL  REGISTERS  AFFECTED. 

MEMORY;  MESSAGE  4. 

MESSAGE  5. 

MESSAGE  6. 

MESSAGE  7. 

182A-B  ;ALL  PURPOSE  K.GCAPE  ADDRESS, 

TRIvlOUT 

TYPE:  SUBROUTINE. 

ENTER:  ACC  CONTAINS  DATA  TO  BE  TRANSMITTED. 

RETURN:  ALL  REGISTERS  OK. 

I/O  PORTS:  91  ; SYSTEM  USART  COMMAND. 

90  ; SYSTEM  USART. 

TRNSMT 

TYPE:  SUBROUTINE, 

ENTER;  ACC  CONTAINS  DATA  TO  BE  SENT  TO  BALLOON. 

RETURN:  FI  AGS  AFFECTED. 

I/O  PORTS:  Cl  ;TM  USART  COMMAND. 

CO  ;TM  USART. 
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f  FI-' 


'(.n:  I'TioMr.. 


iiKr;  M  n^Ki;  "liT  df  sync  oh  out  of  time. 

ov:  Ai'i  iM”:!::;. 


.■TM'  ACi:  O'iNTAINO  MTA. 
KLV'„"  AFFECTED. 


!vE.M''KY : 


I  F.  'Q 
loCK 
]  OAF 


"PCM/UOART"  FL/vO. 

FTATUS  BYTE  FROM  BALLOON. 
CONTAINS  ADDRESS  OF  TTY  BYTE. 


Cl 

C() 


"TIME-OUT"  FLAO. 
TM  USART  COMMAND. 
I’M  USART. 


CMVKT 

TYPE:  SUBHOiiTiNE. 


ENTEP:  EL  CONTAINS  LOCATION  WHERE  MSNIBBLE  IS  T(i  HE  MrOhED. 

OF  COMTArNS  DATA  TO  PE  CONVERTED  INTO  AIT  IT  CHARACTERS. 


HJ'Ti!).:N;  UL  CONTAINS  LOCATION  WHERE  NEXT  MSNIBBLE  IS  TO  BE  ST'-RED. 
PSW  AFi'RCTED. 

MFM'HY:  iHI.)  -  '  4]  :AvScn  STORAGE. 


0  N  w’  P  .  ’ . 

TYPE:  SUHlMlIil  INK. 

‘•N'lP;  '  H.AINS  DAI’A  I)  iUI  CONVEiTEL  INTO  OASOTI  CHAIfACTERS. 

i.:.  0-  IN  AIN:'  :,0(','.Ti  . -N  OE  IVHEliE  AA'’  NIBBLE  I'S  TO  p,E  STORE?. 

iOO-'i’iu;:  :SW  Ai-FK'’'.'KD. 

;i..  ^’ONTAINS.  LOCATldN  WHERE  NEXT  MS  NIBBLE  IS  TO  BE  STORED. 


MrMi'R':':  i 


I  no)  •/! 


220 


GETALL 


TYPE:  SUBROUTINE. 

ENTER:  DE  CONTAINS  STAFtTINO  ADDHK;'.S  PARAMT'N’ER  LIST. 
RETURN:  IF  CY=1 

THEN  REGISTERS  HOLD  NO  VALII’  DATA. 

IF  CY=0 

THEN  DE  CONTAINvG  ADDRES>S  iilC,!!  BYTE. 

HL  CONTAINS  ADDRE.''.':  OF  !,'«  BYTE. 

PSW  AFFECTED. 

BC  AFFECTED. 

NET/ORY:  MESSAGE  It). 

MESSAGE  16. 

NtESSAGE  40. 

MESSAGE  17. 

MESSAGE  18. 

1849 
18EB 

MESSAGE  19. 

MESSAGE  20. 

182A 

( DE )  AND  UP 

ALLDEF 

TYPE:  SUBROUTINE. 

ENTER:  HL  CONTAINS  POINTER  POINTING  TO  TOP  OF  PARAMETER  ITS. 

RETURN:  IF  CY=1 

THEN  PSW  AFFECTED. 

IF  CY-0 

THEN  HL  CONTAINS  DATA  TO  BE  DISPLAYED, 

PS.W  AFFECTED. 

X-MORY:  .  iii,',  AND  IT  -.PARAMETERS  F'lR  DlSITAYIf,'",. 


; "RETURN  ON  Cli"  FLAG. 

;  "ANALOG  DEFINITION"  FLAG. 


;ALL  PURPOSE  ESCAPE  ADDRESS 
: PARAMETERS  FOR  DISPIAYTNG. 
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'i'YPK:  PliPHOUTTNE. 

Ei'rr:!!'.  N- 

EitN:  I.E  C  'iNT/' IN^’  OF  FIRnT  BYTE  OF  SYNC  WORD. 

AIT.  'iTili'Ik  RHUSTERO  AFFECTED. 

IRI-:-!  :  "buffer  FULL"  FLAGS. 

I  HE.  ; NUMBER  OF  WORDS  IN  TM  FRAME. 

MiATN 

TYI'E:  ;'iAY',h.AM. 

Fi;'.  Fi':  NO  ccifDfLT.  .j;s. 

HF'rRN:  ALT,  FEGTSTER;'  AFFECTED. 


j.SE  3 

;  "BUFFER  FULL"  FlJ^GS. 

lFEO-1 

;CCN7'AINS  BEGINNING  OF  TM  BUFFER 

1  OO.E 

;PCM  STATUS  WORD  FROM  TM  BUFFER. 

i.YF.4-'. 

;AMU  NUMBER  FROM  Tlvl  BUFFER. 

1EE6-7 

;DATA  FROM  TM  BUFFER. 

19f)C-l) 

;AMU  MATCH. 

; "MATCH"  FLAG. 

T'OO 

; FLAGS  FOR  DISPLAY. 

IHI'J-TB 

:DTSPUY]  'BUFFER. 

'!  DOE 

;FUGS  FOR  DISPLAYS, 

IS.'"  3-27 

; DISPLAYS  BUFFER, 

i«JA 

:  FLAGS  FOR  DISPJHY.?. 

IBIE-I’i 

;DTSPTJ\Y-;  BUFFER, 

i  9<c6 

;  FLAGS  FOR  DISPIJ\Y. 

■'■•Ton-  ■! 

;ALFA-NlP>tFRTC  DTSPUY. 

1 rfKE-O 

;  ADDRESS  OF  PRESENT  SlJf-TD  NIJMI5ER 

3 

SYNC  LED. 

ANALOG  channel  1  . 

i'  I 

ANALOG  CHANNEL  . 

!•. 

ANALOG  CHANNEL  3- 

ANALOG  CHANNEL  4. 

I'V, 

ANALOG  CH/iNNEL  T. 

i''.  ’ 

LEDS. 

i-'l  , 

ANALOG  CHANNEL  7. 

I'',' 

ANA],OG  channel  Y. 

L.' 

ANALOG  CHANNEl  ■'. 

:■  • 

ANALOG  CiLANNFL  jO 
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EPROM 


0-17FF,  2800-2FFF 


I/PORTS 

80 

HEXDISPLAY  AND  KEYBOARD 

8279A. 

81 

COMMAND  FOR  ABOVE 

8279A. 

90 

SYSTEM  USART 

8251A. 

91 

COMMAND  FOR  ABOVE 

8251A. 

A0 

PCM  DATA 

8251A. 

A1 

TM  MONITOR 

S255A. 

A2 

FUNCTION  BITS 

8255A. 

A3 

COMMAND  FOR  ALL  3  ABOVE 

8255A. 

B0 

SPARE 

8255A. 

B1 

SPARE 

8255A. 

B2 

LEDS 

8255A. 

B3 

COMMAND  FOR  ALL  3  ABOVE 

8255A. 

C0 

TM  USART 

8251A. 

Cl 

COMMAND  FOR  ABOVE 

8251  A. 

D0 

SYSTEM  USART  CLOCK 

8253-5 

D1 

TM  USART  CLOCK 

8253-5 

D2 

TIME-OUT  TIMER 

8253-5 

D3 

COMMAND  FOR  ALL  3  ABOVE 

8253-5 

F0 

ANALOG  MSBYTE  AMU. 

FI 

ANALOG  LSBYTE  AMU. 

F2 

ANALOG  MSBYTE  DATA. 

F3 

AMALOG  NSBYTE  DATA. 

F4 

ANALOG  LSBYTE  DATA. 

F5 

ANALOG  CHANNEL  1. 

F6 

ANALOG  CHANNEL  2. 

F7 

ANALOG  CHANNEL  3. 

F8 

ANALOG  CHANNEL  4. 

F9 

ANALOG  CHANNEL  5. 

FA 

SPARE. 

FB 

SPARE. 

FC 

SPARE. 

FD 

SPARE. 

FE 

FAKE  EPROM  1  . 

FF 

FAKE  EPROM  2. 

RAM 

RAM  EXTENDS  FROM  1800H  to  27FFH. 


1800-180F  FLAGS  FOR  MODE  OF  FUNCTIONS. 

1810-1827  KEYBOARD  ENTRY  BUFFER. 

1828  LOOP  COUNTER  FOR  BALLOON  RECEIVER. 

1829  "IJSART/TM"  FLAG. 

182A-182B  ALL  PURPOSE  ESCAPE  LOCATION. 

182C  "MSBYTE  HAS  BEEN  PROCESSED"  FLAG. 

182D-182E  SPARES. 

182F  "INSTRUCTION  SET  OR  PROGRAM"  FLAG. 

1830  "MATCH"  FLAG. 

1831-1847  SPARES 
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1848  "ADDRESS"  FLAG. 

1849  "RETURN  ON  CR"  FLAG. 

184A-184B  BINARY  EQUIVALENT  (DECBINK 
1840  BUFFER  FOR  "FILL". 

184D  "CLEAR  DISPLAY"  FLAG. 

184E  "COMPA/COMPD"  FLAG. 

184F  COUNTER  OF  BITS  (BINDEC). 

181  FAKE  STATUS  (BAUD). 

1851-1854  SPAR! . 

1855  "TLRM/GCU"  FLAG. 

1856-185F  SPARE. 

1 860-1 89E  TM  DATA  BUFFER  #1. 

18A0-18DF  TM  DATA  BUFFER  #2. 

18E0-18E1  TM  BUFFER  POINTER. 

I8E2  TM  FRAME  LENGTH. 

18E3  "BUFFER  FALL"  FLAGS. 

18E4-18E5  AMU  POINTER  FOR  D/A  CONVERSION. 

18t6-18E7  DATA  POINTER  FOR  D/A  CONVERSION. 

iaE8-18E9  SUB-ID  POINTER. 

IBEA  "NO  ASCII  TO  SYSTEM  BINARY"  FLAG. 

18EB  "HIBYTE  LOCATION  ONLY"  FLAGS. 

18EC-18FF  SPARE. 

1900  DISPLAY  1  FLAGS. 

1901-1907  SUB-ID  NUMBERS  TO  BE  MATCHED. 

1908-1909  LOCATION  OF  BYTEl  LOW. 

190A-190B  LOCATION  OF  BYTE2  HIGH. 

190C-190D  AMU  m'^TCH  DATA. 

190E  DISPLAY  2  FLAGS. 

190F-1915  SUB-ID  NUMBERS  TO  BE  MATCHED. 
1916-1917  LOCATION  OF  BYTEl  LOW. 

1918-1919  LOCATION  OF  PVTF-?  HIGH. 

191A  DISPLAY  3  FLAGS. 

191B-1921  SUB-ID  NUMBERS. 

1922-1923  LOCATION  OF  BYTEl  LOW. 

192^-1925  LOCATION  OF  BYTE2  HIGH. 

1926  DISPLAY  4  FLAGS. 

1927-192D  SUB-ID  NUMBERS  TO  BE  MATCHED. 
192E-192F  LOCATION  OF  BYTEl  LOW. 

1930-1931  LOCATION  OF  BYTE2  HIGH. 

1932  ANALOG!  FLAGS 

1933-1939  SUB-ID  NUMBERS  TO  BE  MATCHED. 

193A-193B  LOCATION  OF  BYTEl. 

193C-193D  SPARE. 

193E  ANAL0G2  FLAGS. 

193F-1945  SUB-ID  NUMBERS  TO  BE  MATCHED. 
1946-1947  LOCATION  OF  BYTE. 

1948-1949  SPARE 


194A  ANALOGS  FLAGS. 

194B-1951  SUB- ID  NUMBERS  TO  BE  MATCHED. 

1952-1953  LOCATION  OF  BYTE. 

1954-1955  SPARE. 

1956  ANAL0G4  FLAGS. 

1957-195D  SUB- ID  NUMBERS  TO  BE  MATCHED. 

195E-195F  LOCATION  OF  BYTE. 

1960-1961  SPARE. 

1962  ANALOG  5  FLAGS. 

1963-1969  SUB- ID  NUMBERS  TO  BE  MATCHED. 

196A-196D  SPARE. 

196E-19AD  TM  BUFFER  FOR  SORTING. 

19AE-19AF  TTY  BYTE  LOCATION. 

19B0-1A12  TRANSMITION  TO  BALLOON  DATA 
1A13-1BFF  STACK. 

1C00-27FF  USERS  RAM. 

2000-27FF  IS  INDIRECTLY  ACCESSIBLE. 

FLAGS 

18E3  BIT7  (MSB)  IS  "BUFFER  #1  FULL"  FLAG. 

BIT6  (NSB)  IS  "BUFFER  #2  FULL"  FLAG. 

WHEN  THE  "INT7.5"  ROUTINE  FILLS  A  BUFFER  IT  SETS  THE  APPROPRIATE 
"BUFFER  FULL"  FLAG.  THIS  TELLS  OTHER  ROUTINES  THAT  NO  MORE  DATA  WILL  BE 
ENTERED  UNTIL  THE  NEXT  BUFFER  IS  FILLED. 

THE  "LDBUFF"  ROUTINE  WILL  RESET  A  "BUFFER  FULL"  FLAG  WHEN  IT  IS 
GOINT  TO  TRANSFER  DATA  FROM  A  BUFFER  TO  A  NEW  BUFFER  FOR  PROCESSING.  ALSO, 

THE  "INT7.5"  ROUTINE  CAN  RESET  "BUFFER  FULL"  FLAGS  IF  THEY  ARE  NOT  USED  BEFORE 
IT  HAS  FILLED  THE  OTHER  BUFFER. 

IBEA  BIT7  (MSB)  IS  "NO  ASCII  TO  SYSTEM  BINARY"  FLAG. 

IF  "TERMIN''  IS  USED  AND  THIS  FLAG  IS  SET,  THEN  THE  DATA  READ  FROM  THE 
TERMINAL  WILL  NOT  BE  CONVERTED  INTO  SYSTEM  BINARY. 

IBEB  ANYBIT  IS  "HIGHYTE  LOCATION  ONLY"  FLAG. 

IF  "GETALL"  IS  USED  AND  THIS  FLAG  IS  SET,  THEN  ONLY  THE  "MEYT  LOC" 
OUESTION  IS  ASKED.  USED  FOR  GETTING  LOCATION  FO  DATA  FOR  ANALOG  CHANNELS 
(ONLY  NEEDS  ONE  BYTE). 

1800  throuch  IBOF  BIT  3  IS  "DECIMAL"  FLAG. 

BIT  2  IS  "BINARY"  FLAG. 

BIT  1  IS  "INDIRECT"  FLAG. 

BIT  0  (LSB)  IS  "DIRECF"  FLAG. 

DEFINES  MODE  OF  INPUT/OUTPUT  PRESENTATION.  SEE  "DCML”,  "RNRY,"  INDRCl", 

"DRCT"  ROUTINE  DESCRIPTIONS  FOR  DETAILS. 
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IMOO  -  CONTAINS  "DISPL"  FLAG. 

1801  -  CONTAINS  "ALTER"  FLAGS. 

1802  -  CONTAINS  "FILL"  FLAGS. 

1803  -  CONTAINS  "MOV"  FLAGS. 

1804  -  SPARE. 

1805  -  "COMPD"/'COMPA"  FLAGS. 

1806  -  SPARE. 

1807  -  CONTAINS  "GO"  FLAGS. 

1808  -  SPARE. 

1809  -  CONTAINS  FLAG  USED  IN  DECOMUTATION 
REST  ARE  SPARES 

1848  -  BIT  7  (MSB)  IS  "ADDRESS  FLAG" 

IF  ADDRESS  IS  USED,  BIT  7  IS  RESET,  AND  THE  "INDIRECT" 

FLAG  OF  THE  CALLING  PROGRAM  IS  SET,  THEN  THE  OFFSET  2000  WILL  NOT  BE 
ADDED.  USED  FOR  GETTING  A  BYTE  OF  DATA  RATHER  THAN  AN  ADDRESS  FROM  THE 
INPUT  DEVICE. 

1849  -  BIT  7  (MSB)  IS  "RETURN  ON  CK"  FLAG. 

IF  "GETDAT"  IS  USED  AND  THIS  FLAG  IS  SET,  AND  THE  FIRST 

ENTRY  BY  THE  INPUT  DEVICE  IS  A  "CR",  THEN  "GETDAT"  WILL  RETURN  TO  THE 

CALLING  ROUTINE.  ALSO  RESETS  "RETURN  ON  CR"  BEFORE  RETURNING. 

184D  -  BIT  7  (MSB)  IS  "CLEAR  DISPLAY"  FLAGS. 

IF  "READ"  IS  USED  AND  THIS  FLAG  IS  SET,  THEN  THE  OUTPUT 
DEVICE  WILL  BE  CLEARED  BEFORE  RETURNING  TO  CALLING  PROGRAM. 

1829  -  BIT  7  (MSB)  IS  "USART/TM"  FLAG. 

IF  "TTYLNK"  IS  USED  AND  THIS  FLAG  IS  SET,  THEN  THE  BALLOON 

DOWN  LINK  IS  DONE  BY  USART.  IF  THIS  FLAG  IS  RESET  THEN  THE  BALLOON  DOWN  LINK 

IS  DONE  BY  TM. 

1855  -  BIT  7  (MSB)  IS  "TERM/GCU"  FLAG. 

IF  THIS  FLAG  IS  SET  THEN  ALL  COMMUNICATIONS  TO  THE  USER  ARE 
DONE  BY  A  TERMINAL.  IF  THIS  FLAG  IS  RESET  THEN  ALL  COMMUNICATION  TO  THE 
USER  ARE  DONE  BY  THE  CONSOLE. 
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HEAD 


STITLE  "BBIMEI  WHI'i’TKW  BY  JIM  MANLEY 


r>  f.  A  u  ij'' 


S  [  X  " 


GLOBAL 

LOOKP 

GLOBAL 

Ml 

GLOBAL 

M2 

G  L  OB  A  L 

M  3 

GLOBAL 

mm 

GLOBAL 

M8 

GLOBAL 

M9 

GLOBAL 

MlO 

GLOBAL 

Ml  2 

GLOBAL 

MOVE 

GLOBAL 

TRMUUT 

GLOBAL 

GBB2 

global 

T’ER.MIN 

GLOBAL 

ERROR 

global 

READ. 

GLOBAL 

F  I  LL 

GLOBAL 

DIRECT 

GLOBAL 

I N OR CT 

GLOBAL 

BNRY 

GLOBAL 

DCML 

GLOBAL 

MOVE/M 

GLOBAL 

MANY 

GLOBAL 

LOOKUP 

GLOBAL 

CLEAR 

GLOBAL 

GETDAT 

GLOBAL 

DECBIN 

GLOBAL 

BINDEC 

GLOBAL 

ADORES 

GLOBAL 

BELL 

GLOBAL 

MESSAG 

GLOBAL 

N.MREAD 

GLOBAL 

CMPDH 

GLOBAL 

END  IT 

GLOBAL 

ALREAD 

LDA 

18S5H 

ORA 

A 

JM 

TERM  IN 

IN 

8111 

OKA 

A 

JM 

READ 

ANI 

OFH 

CPI 

UU.l 

JZ 

READ 

MVl 

A,  4011 

OUT 

81  H 

IN 

8  OH 

ANI 

3F  H 

CPi 

iOH 

;THIS  SUB  GETS  DATA  FROM  KKYB 

;  ENTER  DATA  THHOUGii  TERMINAL 
;CHECK  K'lVBOAHL  '•'Oi<  ENTRY 


RD  0!^ 
TEi^v: 

;  1'  FL'' 


AG  IS 

;  E  r 


;IF  MINUS  THEN  KEYBOARi;  IS  BUSY 
;IS  THERE  ANY  DATA? 

;J'JMD  BACK  IF  NO  DATA  ANi)  AAI  I 
;TL:LL  KEYBOARD  YOU  AR!'.  ABOUl'  10 


;AFTER  RESPONSE  MASK  WITH  W 
;IS  IT  A  NUMBER? 


/\D  IT 
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D  PU;i!l 


JC 

GLB  X 

JUMP  IF  IT  IS 

JNZ 

c‘>y 

JUMP  IF  ITS  WOT  A  10 

M  V  1 

A  ,  8DH 

LOAD  -ACC-  WI'i’H  ASCII 

Ck 

cri 

i  111 

IS  LWTRY  AN  11 

JNZ 

C8 

JU4P  IF  ITS  NOT  AN  11 

'■1  vl 

A,  PSil 

LOAD  -ACC-  WITH  ASCII 

ES 

1 

JBii 

iS  IT  A  GO? 

J  N  /. 

C  8 

JUMP  IF  ITS  NOT 

HVl 

A,  9111 

L'Pi 

3iii 

IS  IT  A  YF.S  FNTkY? 

JNZ 

Ci.G 

JUMP  IF  ITS  NOT 

Yi  V ; 

A  ,  ()D91 

LOAD  -ACC-  WITii  ASCII 

Y 

C  I'i 

3Xil 

IS  ri  A  NO  LNi'KY? 

JN/’ 

GA7 

JUMP  IF  ITS  NOT 

■A  V I 

A  ,  OCLl! 

r.OAl)  -ACC-  WITH  ASCII 

N 

0  < : 

8  Uii 

C 1'  I 

(;;;OH 

•IS  IT  A  bACK  SPACE? 

J  z 

G  b-i  2 

•■J'J.'IP  IF  ITS  NOT 

M  V  I 

A,  .iilH 

pu.-.;i 

PSW 

rSAVE  IT 

Li)A 

18  4l)H 

;C11L;CK  TO  SEE  IF  WK  HAVE 

CPA 

A 

JP 

G80 

(.'LEAK  IF  MINUS 

CALL 

CL  LAP 

CALL  CLEAR  IF  CONSOLE 

IS 

I'lVl 

A,  8UH 

OUTPUT  TO  TERMINAL  A 

CR 

CALL 

T KM OUT 

M  V  [ 

A,  KAU 

CALL 

TKMOUr 

XPA 

A 

;  RESET  THE  CLEAR  FLAG 

CT/'. 

184011 

I’UlLi 

H 

;SAVE  -ilL- 

L  X I 

!1,  04PFH 

;SET  UP  TO  KING  BELL 

CAl. 

a  LLL 

PO  P 

.1 

PO  P 

KKT 

Pl.W 

DISPLAY 


M'tllS  SUH  PLAUS  IN  ONLY  WUMBF.i^S  Pi^OM 

THF  KEYdKD 


PUSH 

0 

inisii 

B 

CALL 

READ 

Cj  0  1' 

AW  ENTRY 

MOV 

B  ,  A 

•SAVE  ENTRY 

C  Pi 

9BH 

IS  IT  AN  ESCAl'E 

RE DUE ST? 

J/. 

G? 

JUMP  IF 

IT  IS 

CPI 

«(1H 

IS  IT  A 

BACK  SPACE  KEOUEST? 

J/. 

GS 

JUMP  IF 

IT  IS 

CPI 

HDil 

1  S  1 1’  A 

CH? 

J  z 

G.i 

JUMP  IF 

IT  IS 

CPI 

lOli 

IS  IT  A 

NUMBER? 

JNC 

GL 

JUMP  IF 

IT  HINT 

LXJ 

11,  1  8  ICH 

SET  UP 

I'O  SHIFT 

NUMBER  DISPLAY 

?38 


ONE 


LXI 

D, 181DH 

;DE  CONTAINS  HL-1,HL  CONTAINS  MSDIGIT 

OF  DISPLAY 

G4 

MOV 

A,M 

;START  SHIFTING  EACH  ONE  DOWN  ONE 

LOCATION 

STAX 

D 

MOV 

A,L 

OCX 

H 

OCX 

D 

CPI 

18H 

;IS  THIS  THE  LAST  SHIFT? 

JNZ 

G4 

;JUMP  IF  IT  ISNT 

MOV 

A,  B 

STAX 

D 

RST 

1 

;DISPLAY  ALL 

G3 

POP 

B 

POP 

D 

POP 

H 

RET 

G6 

LXI 

H, 3FFFH 

;SET  UP  TO  RING  BELL 

CALL 

BELL 

JMP 

G1 

;TRY  FOR  CORRECT  ENTRY 

G2 

CALL 

CLEAR 

;CLEAR  DISPLAY  AND  GO  TO  ESCAPE 

LOCATION 

LHLD 

182AH 

;GET  ESCAPE  DATA  AND  PUT  IN  HL  SO  WE 

CAN 

PCHL 

;REPLACE  PROGRAM  COUNTER  WITH  ESCAPE 

DATA 

G5 

LXI 

H, 1819H 

;SET  UP  TO  SHIFT  NUMBER  DISPLAY  TO  THE 

RIGHT  ONE 

LXI 

D, 1818H 

G70 

MOV 

A,M 

STAX 

D 

INX 

H 

INX 

D 

MOV 

A,L 

CPI 

IDH 

JNZ 

G70 

MVI 

A,  OAOH 

STA 

181DH 

RST 

1 

;DISPLAY  ALL 

JMP 

G1 

;GO  GET  ANOTHER  NUMBER 

MOVE 

MOV 

A,M 

;SUB  TO  MOVE  DATA  FROM  HL  TO  DE  TO  NEW 

LOCATION  BC  AND  UP 

STAX 

B 

CALL 

CMPDH 

;SEE  IF  THIS  IS  THE  END 

RZ 

;RETURN  IF  IT  IS 

INX 

H 

;INC  HL  AND  BC  ,  POINT  TO  NEXT  MOVE 

LOCATION 

INX 

B 

JMP 

MOVE 

;GO  MOVE  THE  NEXT  BYTE 

CMPDH 

MOV 

A,D 

;THIS  SUB  COMPARES  HL  TO  DE 

CMP 

H 

;IF  HL>DE  THEN  CY=1 
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RNZ 

MOV 

A,E 

;HL=DE  THEN  Z=l,Cy=0 

CMP 

L 

;IF  HL<DE  THEN  CY=0 

RET 

ALREAD 

PUSH 

H 

;SUB  READS  IN  ALFA-NUMERIC  CHARECTORS 

AND  LOADS  IN  TO  BE  DISPLAYED 

PUSH 

D 

PUSH 

B 

Gil 

CALL 

READ 

;GET  A  CHARECTOR 

MOV 

B,A 

;SAV£ 

CPI 

88H 

;IS  A  BACK  SPACE  REQUEST? 

JZ 

G12 

;JUMP  IF  IT  IS 

CPI 

9BH 

;IS  IT  AN  ESCAPE  REQUEST? 

JZ 

G13 

;J'JMP  IF  IT  IS 

CPI 

8DH 

;IS  IT  A  CR? 

JZ 

G14 

;JUMP  IF  IT  IS 

LXI 

D, 1817H 

;SET  UP  TO  SHIFT  ALFA  TO  THE  LEFT  BY 

ONE 

LXI 

H, 1816H 

G15 

MOV 

A,M 

;GET  DATA  AND  MOVE  TO  THE  LEFT 

STAX 

D 

OCX 

H 

; POINT  TO  NEXT  LOCATION  TO  MOVE 

OCX 

D 

MOV 

A,L 

;SEE  IF  THIS  IS  THE  LAST  LOCATION  TO 

MOVE 

CPI 

OFH 

JNZ 

G15 

;JUMP  IF  MORE  MOVES  ARE  NEEDED 

MOV 

A,B 

;GET  BACK  SAVED  DATA 

STAX 

D 

;STORE  NEW  DATA  IN  LSDIGIT 

G14 

POP 

B 

POP 

D 

POP 

H 

RET 

G12 

LXI 

H, 1811H 

;SHIFT  ALFA  STORAGE  TO  THE  RIGHT  ONE 

LXI 

D, 1817H 

LXI 

B, 1810H 

CALL 

MOVE 

MVI 

A,0A0H 

STA 

1817H 

JMP 

Gll 

G13 

LHLD 

182AH 

;LOAD  ESCAPE  DATA  INTO  HL  SO  IT  CAN  BE 

PUT  INTO  THE  PC 

CALL 

CLEAR 

.•CLEAR  THE  DISPLAYS 

PCHL 

;HL  MOVED  INTO  PC 

BELL 

PUSH 

D 

;SUB  RINGS  THE  BELL  FOR  (HL)  LONG 

PUSH 

PSW 

LXI 

D, OEFFEH 

MVI 

A,  06H 

;SET  UP  TO  START  RINGING  BELL 

OUT 

03  311 

G16 

DAD 

D 

JC 

G16 

.•CONTINUE  IF  NOT  DONE 

MVI 

A,  07H 

.•SET  UP  TO  STOP  BELL 
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OUT 

0B3H 

POP 

PSW 

POP 

RET 

D 

DIRECT 

LDA 

1810H 

CPI 

OBDH 

JNZ 

G20 

G17 

CALL 

MANY 

MOV 

A,  B 

CPI 

OOH 

JZ 

G17 

CALL 

LOOKUP 

JC 

G18 

LXI 

H, 8000H 

CALL 

CMPDH 

JNC 

G18 

LDAX 

D 

AN  I 

0F5H 

ORI 

OSH 

STAX 

D 

LDA 

1810H 

CPI 

OBDH 

JZ 

G17 

JMP 

G19 

G18 

CALL 

ERROR 

JMP 

G17 

G20 

LXI 

D, 180FH 

LXI 

H, 17FFH 

G21 

I  NX 

ri 

MOV 

A.M 

AN  I 

0F5H 

ORI 

OSH 

MOV 

M  ,A 

CALL 

CMPDH 

JNZ 

G21 

G19 

CALL 

RET 

END  IT 

ERROR 

CALL 

CLEAR 

MVI 

A,  OSH 

LXI 

H,M9 

CALL 

MESSAG 

LXI 

H, 3FFFH 

;THIS  SUB  SETS  THE  DIRECT  ACCESS  FLAG 

OF  OTHER  PROGRAMS 
;WAS  THE  LAST  KEYBRU  ENTRY  AN  =  ? 

;JUMP  IF  IT  WASNT 

;  LOOKUP  THE  Pi^OGRAMS  YOU  WANT  TO  BE 

DIRECT, IF  THE  PROGRAM 
;WEK£  THERE  ANY  ENTRIES  IN  SUB  MANY? 

;JUMP  It  THERE  WERENT  ANY  ENTRIES 

;IS  DIRECT  THEN  IT  IS  ALSO  BINARY 

;JUMP  IF  THERE  IS  AN  ERROR 

;LETS  MAKE  SURE  THIS  PROGRAM  IS  ABLE  TO 

ACCEPT  DIRECT 

;JUMP  IF  THE  PROGRAM  IS  NOT  ABLE  TO 

ACCEPT  DIRECT  COMMANDS 
;GET  LOOKED  UP  PROGRAMS  STATUS 
;MASK  OUT  INDIRECT  AND  DECIMAL  FLAGS 
;MASK  IN  DIRECT  AND  BINARY  FLAGS 
;STORE  FLAGS  IN  MEMORY 
;LOOK  AT  LAST  KEYBRD  ENTRY 
;IS  IT  AN  =  ? 

;JUMP  IF  IT  IS  AND  GET  ANOTHER  PROGRAM 

TO  UPDATE 

;END  IF  IT  WASNT  AN  = 

.•DISPLAY  ERROR  MESSAGE  AND  GO  GET 

ANOTHER  PROGRAM  TO  UPDATE 

;IN  THIS  MODE  ALL  PROGRAMS  ARE  SET  TO 

DIRECT  AND  BINARY 

; INCREMENT  HL  TO  THE  NEXT  MEMORY 

LOCATION 

;GET  PROGRAM  STATUS  FLAGS 
;MASK  OUT  DECIMAL  AND  INDIRECT  FLAGS 
;MASK  IN  BINARY  AND  DIRECT  FLAGS 
.•STORE  STATUS 

.•IS  THIS  THE  LAST  PROGRAM  TO  BE 

UPDATED? 

.•JUMP  IF  IT  WASNT  THE  LAST  ONE 
;END  THIS  PROGRAM 

.•THIS  SUB  DISPLAYS  ERROR  MESSAGE  CLEARS 

HEX  DISPLAY 

.•SET  UP  TO  DISPLAY  ERROR  MESSAGE 


.•SET  UP  TO  RING  BELL 


241 


CALL 

RET 

Em')  IT  MVI 

LXI 

CALL 

RET 

I'lEssAG  pul;i 

PUSH 

CALL 

XC  HG 

MOV 

MVI 

DCR 

DAD 

LXI 

XCHG 

G7d  MOV 
OR  I 
STAX 
CALL 
CALL 
INX 
IHX 
JNZ 
POP 
POP 
•MVI 
CALL 
MVI 
CALL 
RET 

FILL  MOV 

STA 

CALL 

RZ 

LUA 

INX 

JMP 

CLEARS  PUSH 
MVI 
OUT 
POP 
RET 

CLEAR  PUSH 

PUSH 

PUSH 

MVI 


BELL 


A,03H  ;THIS  SUB  DISPLAYS  END  MESSAGE  AND 

CLEARS  HEX  DISPLAY 

H,M1()  ;SET  'iP  TO  DISPLAY  END  MESSAGE 
MESSAG 


0 

B 

C  LEAR 

L,  A 
H,  OOH 
L 
D 

B  ,  380011 


;THIS  SUB  DISPLAYS  A  MESSAGE  OF  LENGTH 

-A-  AND  LOCATED 

;AT  -HL-  AND  UP 

;SET  UP  TO  LOAD  DISPLAY  WITH  SPACES 

;MOVE  -HL-  INTO  -DE- 

;PUT  NUMBER  OF  CHARECTORS  INTO  -HL- 


;HL+DE 

.-ADDRESS  IN  -DE-  AND  AN  END  ADDRESS  IN 

-HL-  ALSO  A 


A.M  .-NOW  MOVE  MESSAGE  TO  DISPLAY  MEMORY 

80H  ;SET  MSBIT  TO  SHOW  SYSTEM  BINARY 

B 

TRMOUT 

CMPDH 

B 

H 

G78 

B 

D 

A,  8011  ;SET  UP  TO  TRANSMIT  CR  LF 

TRMOUT 

A,  8AH 

TRMOUT 


M.A  ;MOVE  THE  -ACC-  INTO  MEMORY  UNTIL  -HL- 

=  -DE- 

184CH 

CMPDH 

.•RETURN  IF  THEY  ARE  EQUAL 

184CH 

11  .-POINT  TO  NEXT  MEMORY  LOCATION 

FILL  .-JUMP  BACK  AND  CONTINUE 

PSW  .-THIS  SUB  CLEARS  ONLY  HEX  DISPLAY 

A, ODCH 

81H 

PSW 


H  ; OUTPUT  A  CLEAR  INSTRUCTION  TO  THE 

8279A-5 

D 

PSW 

A,  UDFIl 


OUT 

81H 

G22 

IN 

8111 

;CHECK  MSBIT  OF  STATUS  FROM  8279A-5 

ORA 

A 

JM 

G22 

;IF  MINUS  THEN  STAY  IN  LOOP 

LXI 

H, 3800H 

LXI 

D,3807H 

MVI 

A, OAOH 

CALL 

FILL 

LXI 

H, 1810H 

;NOW  CLEAR  DISPLAY  MEMORY 

G64 

LXI 

D, 1827H 

MVI 

A, OAOH 

CALL 

FILL 

MVI 

A,  8D11 

; OUTPUT  A  CR  LF 

CALL 

TRMOUT 

MVI 

A,8AH 

CALL 

TRMOUT 

POP 

PSW 

POP 

D 

POP 

H 

RET 

MANY 

MVI 

B,00H 

;THIS  SUB  GETS  KEYBRD  ENTRIES  AND 

DISPLAYS  THEM 

LDA 

1855H 

;IF  TERMINAL  IS  ACTIVE  THEN  DONT  SET 

CLEAR  FLAG 

ORA 

A 

JM 

G23 

MVI 

A, OFFH 

;SET  CHARECTOR  COUNTER  TO  00  THEN  GET  A 

CHARECTOR 

STA 

184DH 

;SET  THE  CLEAR  FLAG  FOR  SUB  READ 

G23 

CALL 

ALREAD 

CPI 

SDH 

;IS  ENTRY  A  CR  ? 

RZ 

; RETURN  IF  IT  WAS 

INR 

B 

;INCREAMENT  CHARECTOR  COUNTER 

MOV 

A,B 

;SEE  IF  B  IS  TO  LARGE 

CPI 

09H 

JNZ 

G23 

;JUMP  IF  IT  ISNT 

MVI 

B,08H 

;NOT  TO  EXCEED  8  CHARECTORS 

JMP 

G23 

;GO  GET  NEXT  CHARECTOR 

LOOKUP 

LXI 

H, LOOKP 

;THIS  SUB  LOOKS  UP  PROGRAM  STARTING 

ADDRESSES  AND  STATUS 

G24 

MVI 

A,  lOH 

/ADJUST  -DE-  SO  IT  POINTS  TO  THE  FIRST 

CHARECTOR 

OCR 

B 

/CORRECT  -6-  THE  CHARECTOR  COUNTER 

ADD 

B 

/ADD  ADJUSTMENT  TO  CHARECTOR  COUNTER 

MOV 

E,  A 

/MOVE  ADJUSTED  LOW  ORDER  ADDRESS  TO  -E- 

MVI 

D,  18H 

/ ATTACH  HIGH  ORDER  ADDRESS 

G76 

PUSH 

D 

/SAVE  ENTRY  CHARECTOR  POINTER 

G25 

LDAX 

D 

/GET  A  CHARECTOR  TO  BE  LOOKED  UP 

ANI 

7fH 

CMP 

M 

/IS  THE  LOOKED  UP  CHARECTOR  EQUAL  TO 

THE  ENTEHBD  CHARECTOR  ? 


JZ 


G2G 


;JUMP  IF  IT  IS 


G27 


G61 


G7 


GIO 


G26 


CPI 

3DU 

;C11ECK  for  =  SIGN, COULD  BE  VALID  ENTRY 

JNZ 

G27 

MVI 

A,  20H 

;IF  LAST  COMPARISON  WAS  TRUE  THEN 

CMP 

M 

CHECK  LOOKUP  TABLE  FOR  A  SPACE 

JNZ 

G27 

;IF  IT  IS  A  SPACE  THEN  VALID  LOOKUP  GO 

DCX 

H 

GET  ADDRESSES 

.•CORRECT  -HL- 

JMP 

G28 

MVI 

A,  20H 

;IF  NOT  THEN  LOOK  THROUGH  LOOKUP  TABLE 

CMP 

M 

UNTIL  A  SPACE  IS  FOUND 

;IS  IT  A  SPACE? 

INX 

H 

JNZ 

G27 

;JUMP  IF  IT  ISNT 

LXl 

D, 0004H 

;ADD  4  TO  -HL-  ,  THIS  WILL  POINT  TO 

DAD 

D 

NEXT  PROGRAM  LIST 

POP 

D 

;GET  BACK  -DE- 

LDA 

1855H 

;CHECK  FOR  ACTIVE  CONSOLE 

RLC 

JC 

G7 

;UMP  IF  ITS  NOT 

MOV 

A,  E 

;MUST  HAVE  ONLY  ONE  ENTRY 

CPI 

lOH 

JNZ 

GIO 

;IF  MORE  THAN  ONE  THEN  ERROR 

rOAX 

D 

;GET  CHAHECTOR 

CMP 

M 

;ARE  THEY  EQUAL? 

JNZ 

G7 

;UMP  IF  THEY  ARE  NOT 

MVI 

D,0FFH 

;SET  UP  TO  GO  BACK  TO  BEGINNING  OF  THIS 

INX 

H 

LIST 

MOV 

E,M 

;GET  2S  COMPLIMENT  NEEDED 

DAD 

D 

LXI 

D, 3800H 

; POINT  TO  ALPHA  DISPLAY 

MOV 

A,M 

.•DISPLAY  PROGRAM  NAME 

CPI 

20H 

;IS  IT  THE  SPACE? 

JZ 

G60 

.-JUMP  IF  IT  IS 

OR  I 

8011 

STAX 

D 

;DISPLAY  IT 

INX 

D 

INX 

H 

JMP 

G61 

INX 

H 

.•POINT  TO  NEXT  PROGRAM  LIST 

INX 

H 

MOV 

A,M 

.'ARE  THERE  ANY  MOKE  PROGRAM  LISTS  ? 

CPI 

OFFH 

JNZ 

G76 

.•JUMP  IF  THERE  ARE 

CALL 

ERROR 

;IF  THERE  ARENT  ANY  MORE  PROGRAMS  THAN 

STC 

DISPLAY  ERROR 

.'SET  ERROR  FLAG 

RET 

MOV 

A,E 

;IS  THIS  THE  LAST  ENTRY  ? 

CPI 

lOH 
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JZ 

G28 

;JUMP  IF  IT  IS 

INX 

H 

; POINT  TO  NEXT  LOOKUP  LOCATION  AND 

ENTRY  LOCATION 

DCX 

D 

JMP 

G25 

G28 

INX 

H 

;THIS  IS  OUR  PROGRAM  SO  GET  THE 

STARTING  ADDRESS 

MOV 

A,M 

;MAKE  SURE  THIS  IS  THE  END  OF  A  LOOKUP 

CPI 

20H 

JNZ 

G27 

POP 

D 

G62 

INX 

H 

MOV 

E,M 

INX 

H 

MOV 

D,M 

PUSH 

D 

;SAVE  STARTING  ADDRESS 

INX 

H 

;NOW  GET  PROGRAM  STATUS 

MOV 

E,M 

INX 

H 

MOV 

D,M 

POP 

H 

;GET  BACK  STARTING  ADDRESS 

ORA 

A 

; RESET  ERROR  FLAG 

RET 

G60 

DCX 

H 

;GET  LAST  LETTER  OF  PROGRAM 

MOV 

A,M 

OR! 

80H 

STA 

1810H 

.•STORE  IT 

INX 

H 

PUSH 

H 

LXI 

H, OOOOH 

LXI 

D, OOOIH 

G69 

DAD 

D 

DAD 

D 

DAD 

D 

JNC 

G69 

POP 

H 

JMP 

G62 

ADORES 

PUSH 

H 

;THIS  SUB  GETS  A  NUMBBIR  UP  TO  4  DIGITS 

AND  CONVERTS  IF  NES 

CALL 

CLEARS 

G29 

MVI 

B,00H 

;SET  CHARECTOR  COUNTER  TO  ZERO 

LXI 

H, 1818H 

; POINT  TO  MEMORY  LOCATION  OF  DISPLAY 

G30 

CALL 

NMREAD 

CPI 

8DH 

;READ  IN  A  NUMBER  AND  SEE  IF  IT  IS  A  CR 

JNZ 

G30 

.•JUMP  IF  IT  ISNT 

G31 

MOV 

A,M 

.•COUNT  HOW  MANY  CHARECTORS  WERE  ENTERED 

CPI 

OAOH 

;IS  THIS  A  SPACE? 

JNZ 

G32 

;JUMP  IF  IT  WASNT  THE  LAST  NUMBER 

MOV 

A,B 

;WAS  THERE  TO  MANY  NUMBERS  ENTERED? 

CPI 

OSH 

JNC 

G33 

.•JUMP  IF  THERE  ARE  TO  MANY 

MOV 

A,B 

.•ADJUST  THE  MEMORY  POINTER  TO  POINT  TO 
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THK  LAST  NUMBER  ENTERED 


ADI 

17U 

MOV 

L,  A 

;PUT  LOW  BYTE  OF  ADDRESS  IN  -L- 

MVI 

H,  18H 

;PUT  HIGH  BYTE  OF  ADDRESS  I’  -H- 

LXI 

D, OUUOH 

MOV 

A,B 

;FIND  OUT  WERE  TO  START  COMBINING  DATA 

CPI 

OlH 

;AHE  THERE  1? 

JC 

G99 

.-JUMP  IF  THERE  ARENT  ANY 

JZ 

G37 

.-JUMP  IF  THERE  IS  1 

CPI 

03H 

;ARE  THERE  2  OR  3? 

JC 

G36 

;J'JMP  IF  THERE  ARE  2 

JZ 

G3b 

;JUMP  IF  THERE  ARE  3 

JMP 

G34 

;JUMP  IF  THERE  ARE  4 

G9y 

STC 

;SET  THE  CARRY  TO  SHOW  ERROR 

POP 

H 

RET 

G32 

MOV 

A,  L 

CPI 

2DH 

;IS  THIS  THE  LAST  DISPLAY  LOCATION? 

JZ 

G33 

;JUMP  IF  IT  IS 

INR 

B 

;INCREAMENT  NUMBER  COUNTER 

INX 

H 

; POINT  TO  NEXT  MEMORY  LOCATION 

JMP 

G31 

G  3  3 

CALL 

CLEARb 

.•CLEAR  THE  DISPLAY  AND  RING  THE  BELL 

LXI 

H, 3FFFH 

CALL 

BELL 

JMP 

G29 

.•JUMP  BACK  AND  START  OVER  AGAIN 

G34 

MOV 

A,M 

.•IF  THERE  ARE  4  THAN  START  COMPACTING 

HERE 

RLC 

HLC 

.•MAKE  THIS  NIBBLE  HIGH  ORDER 

RLC 

RLC 

MOV 

D,  A 

.•SAVE  IN  D 

DCX 

It 

.•POINT  TO  NEXT  LOCATION 

G35 

M  OV 

A  ,M 

;IF  THERE  ARE  3  THAN  START  HERE 

ORA 

D 

;COMbINE  -A-  AND  -D- 

MOV 

D,  A 

; STORE  IN  D 

DCX 

ri 

.•POINT  TO  NEXT  LOCATION 

G3G 

MOV 

A,M 

.•IF  THERE  ARE  2  THAN  START  HERE 

RLC 

RLC 

.•MAKE  THIS  NIB3BLE  HIGH  ORDER 

RLC 

RLC 

MOV 

E ,  A 

.•SAVE  IN  -E- 

DCX 

M 

; POINT  TO  NEXT  LOCATION 

G37 

MOV 

A,M 

;IF  THERE  IS  1  THAN  START  HERE 

OKA 

E 

.-COMBINE  -E-  AND  -A- 

MOV 

E ,  A 

; STORE  IN  -E- 

POP 

<1 

;GET  BACK  PROGRAMS  STATUS 

MOV 

A,M 

;PUT  STATUS  IN  -ACC- 

RRC 

.•CHECK  TO  SEE  IF  THIS  IS  DIRECT  ACCESS 

JNC 

G38 

;IF  IT  IS  GO  HOME 
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CMC 

RET 

G38 

RRC 

CHECK  TO  SEE  IF  THIS  IS  INDIRECT 

ACCESS 

JC 

G39 

JUMP  IF  THERE  IS  ANY  ACCESS  DEFINITION 

G47 

LXI 

H,M8  ; 

DISPLAY  MODE?  MESSAGE 

MVI 

A, OSH 

MOV 

B,A 

CALL 

MESSAG 

LXI 

H,  3FFFH 

CALL 

BELL 

STC 

RET 

G39 

RRC 

CHECK  TO  SEE  IF  THIS  BINARY  DATA 

jac 

G40 

JUMP  IF  IT  ISNT 

G52 

LDA 

1848H 

CHECK  TO  SEE  IF  THIS  IS  DATA  OR 

ADDRESS 

ORA 

A 

RP 

LXI 

H,2000H 

ADD  THE  ADJUSTMENT  TO  THE  ACTUAL  DATA 

DAD 

D 

ORA 

A 

RESET  CY  FLAG 

XCHG 

RET 

G4U 

RRC 

CHECK  TO  SEE  IF  THIS  IS  DECIMAL  DATA 

JNC 

G40 

JUMP  IF  THERE  ISNT  ANY  DATA  TYPE 

DEFINED 

XCHG 

1 

WE  NEED  TO  CONVERT  THIS  DECIMAL  NUMBER 

INTO  BINARY 

CALL 

DECBIN 

XCHG 

JMP 

G52 

■JUMP  TO  ADJUST  NEW  BINARY  NUMBER 

INDRCT 

LDA 

1810H 

•THIS  PROGRAM  SETS  OTHER  PROGRAMS 

STATUS  TO  3E  INDIRECT 

CPI 

OBDH 

IF  THE  LAST  ALFA  ENTERED  WAS  AN  = 

JZ 

G41 

THEN  JUMP 

LXI 

D, 180FH 

SET  UP  TO  CHANGE  ALL  PROGRAM  STATUS  TO 

INDIRECT  ACCESS 

LXI 

II,  17FFH 

G44 

INX 

H 

POINT  TO  NEXT  STATUS  TO  BE  UPDATED 

MOV 

A,M 

MOVE  STATUS  INTO  -ACC- 

ANI 

OF  EH 

MASK  OUT  DIRECT  ACCESS  FLAG 

ORI 

02H 

MASK  IN  INDIRECT  ACCESS  FLAG 

MOV 

M,A 

STORE  STATUS 

CALL 

CMPDH 

WAS  THAT  THE  LAST  STATUS  UPDATE? 

JNZ 

G44 

JUMP  IF  IT  WASNT 

G45 

CALL 

ENDIT 

UPDATING  FINISHED  GO  HOME 

RET 

G42 

CALL 

ERROR 

G41 

CALL 

MANY 

?GET  THE  NEXT  PROGRAM  STATUS  TO  BE 

UPDATED 

MOV 

A,B 

;WAS  THERE  AN  ENTRY  IN  SUB  MANY? 
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CPI 

OOH 

JZ 

G41 

;JUMP  IF  THERE  WASNT  ANY  ENTRY 

CALL 

LOOKUP 

;SEE  IF  PROGRAM  EXISTS 

JC 

G42 

;JUMP  IF  IT  DOESNT  EXIST 

LX  I 

h, SOOOH 

;SEE  IF  PROGRAM  NEEDS  A  STATUS 

CALL 

CMPUH 

JNC 

G42 

;JUMP  IF  NO  STATUS  IS  NEEDED 

LDAX 

D 

.•MOVE  STATUS  INTO  -ACC- 

AN  I 

OFEti 

;MASK  OUT  DIRECT  FLAG 

OBI 

02n 

;MASK  IN  INDIRECT  FLAG 

STAX 

0 

; STORE  STATUS 

LDA 

1810U 

;MOVE  LSDIGIT  INTO  -ACC- 

CPI 

03  UH 

; IS  IT  A  = 

JZ 

G41 

;GO  GET  ANOTHER  PROGRAM  TO  UPDATE 

JMP 

G45 

.•JUMP  TO  END 

BNHY 

LDA 

1810H 

.•THIS  PROGRAM  CHANGES  THE  STATUS  OF  A 

PROGRAM  TO  ACCEPT 

CPI 

OB  Dll 

/BINARY  INFO 

JZ 

G46 

/JUMP  IF  THE  LSDIGIT  WAS  A  = 

LXI 

D, ISOfH 

.•SET  UP  TO  GET  STATUS  OF  ALL  PROGRAMS 

AND  CHANGE  THEM  TO 

LXI 

H, 17FFH 

/BINARY 

G48 

I  NX 

11 

/POINT  TO  NEXT  PROGRAM  STATUS  TO  BE 

UPDATED 

MOV 

A,M 

/MOVE  STATUS  INTO  -ACC- 

ANI 

0F7H 

;MASK  OUT  DECIMAL  FLAG 

OBI 

0411 

/MASK  IN  BINARY  FLAG 

MOV 

M,A 

/STORE  STATUS 

CALL 

CMPDH 

/WAS  THAT  THE  LAST  STATUS  TO  BE 

UPDATED? 

JNZ 

G48 

/JUMP  IF  IT  WASNT 

G49 

CALL 

ENDIT 

/FINISHED  UPDATING  GO  HOME 

RET 

G50 

CALL 

ERROR 

G46 

CALL 

MANY 

/GET  A  PROGRAM 

MOV 

A,B 

/WAS  THERE  AN  ENTRY  IN  SUB  MANY? 

CPI 

OOil 

JZ 

G4  3 

/JUMP  IF  THERE  WASNT  ANY  ENTRY 

CALL 

LOOKUP 

/GET  ITS  STATUS  LOCATION 

JC 

G50 

/JUMP  IF  THERE  WAS  AN  ERROR 

LXI 

H,  80  0 011 

/CHECK  TO  SEE  IF  PROGRAM  NEEDS  A  STATUS 

CALL 

CMPDH 

JNC 

G50 

/JUMP  IF  NO  STATUS  IS  NEEDED 

LDAX 

U 

/MOVE  STATUS  INTO  -ACC- 

ANI 

0F7H 

/MASK  OUT  DECIMAL  FLAG 

OR  I 

0411 

/MASK  IN  BINARY  FLAG 

STAX 

D 

/STORK  STATUS 

LDA 

1810H 

/MOVE  LSDIGIT  INTO  -ACC- 

CPI 

OBDH 

/SEE  IF  IT  IS  A  = 

JZ 

C4G 

/JUMP  IF  IT  IS  AND  GET  ANOTHER  PROGRAM 

TO  UPDATE 

JMP 

G49 

/FINISHED  UPDATING  GO  HOME 
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DCML 

LDA 

1810H  .-THIS  SUB  CHANGES  PROGRAM  STATUS  TO  3E 

DECIMAL 

CPI 

OBDH  ;WAS  THE  LSDIGIT  A  =? 

JZ 

G51 

JUMP  IP  IT  WAS 

LXI 

D,180FH 

SET  UP  TO  CHANGE  ALL  PROGRAM  STATUS  TO 

BE  DECIMAL 

LXI 

H, 17FFH 

G53 

INX 

H 

POINT  TO  NEXT  STATUS  TO  BE  UPDATED 

MOV 

A,M 

MOVE  STATUS  INTO  -ACC- 

ANI 

OFAH 

MASK  OUT  BINARY  AND  DIRECT  FLAGG 

OR  I 

OAH 

MASK  IN  DECIMAL  AND  INDIRECT  FLAGS 

MOV 

M,A 

STORE  STATUS 

CALL 

CMPDH 

IS  THIS  THE  LAST  STATUS  UPDATE? 

JNZ 

G53 

JUMP  IF  IT  ISNT 

G54 

CALL 

ENDIT 

UPDATING  FINISHED  GO  HOME 

RET 

G55 

CALL 

ERROR 

G51 

CALL 

MANY 

GET  A  PROGRAM 

MOV 

A,  B 

WAS  THERE  AN  ENTRY  IN  SUB  MANY? 

CPI 

OUH 

JZ 

G51 

•JUMP  IF  THERE  WERE  NO  ENTRIES 

CALL 

LOOKUP 

GET  THE  PROGRAM  STATUS 

JC 

G55  ;JUMP  IF  THERE  WAS  AN  ERROR 

LXI 

H,8000H  ;SEE  IF  THIS  PROGRAM  NEEDS  A  STATUS 

CALL 

CMPDH 

JNC 

G55 

JUMP  IF  NO  STATUS 

LDAX 

D 

MOVE  STATUS  INTO  -ACC- 

ANI 

OFAH 

MASK  OUT  BINARY  AND  DIRECT  FLAGS 

OR  I 

OAH 

MASK  IN  DECIMAL  AND  INDIRECT  FLAGS 

STAX 

D 

STORE  STATUS 

LDA 

181011 

MOVE  LSDIGIT  INTO  THE  -ACC- 

CPI 

OBDH 

SEE  IF  IT  IS  A  = 

JZ 

G51 

JUMP  AND  GET  ANOTHER  PROGRAM 

JMP 

G54 

JUMP  TO  END 

MOVEM 

MVI 

C,00ri 

THIS  PROGRAM  MOVES  BLOCKS  OF  MEMORY 

G65 

INR 

C 

NUHBER-OF-ADDRESS  COUNTER  IS 

INCREAMENTED 

MOV 

A,C 

FIND  OUT  WHAT  ADDRESS  THIS  IS 

CPI 

OlH 

IS  IT  THE  FIRST  ONE? 

JZ 

G5G 

JUMP  IF  IT  IS 

CPI 

0  211 

IS  IT  THE  SECOND  ONE? 

JZ 

G57 

JUMP  IF  IT  IS 

LXI 

H,M3 

IT  MUST  BE  THE  THIRD  ADDRESS  SO  SET  UP 

TO  DISPLAY  MESSAGE 

G58 

MVI 

A,  07H 

PUT  NUMBER  OF  CHARECTORS  TO  BE 

DISPLAYED  IN  -ACC- 

CALL 

MESSAG 

LXI 

H, 18a3H 

;LOAD  STATUS  ADDRESS  IN  -ML-  AND  GET  AN 

ADDRESS 


;RETURN  IF  THERE  WAS  AN  ERROR  IN  THE 


CALL 

RC 


AUURES 


SUB 


G63 

C56 

G57 


PUSH 

3 

SAVE  THIS  ADDRESS 

MOV 

A,C  ;SEE  IF  THIS  IS  THE  LAST 

ADDRSS  WE 

HAVE 

TO 

GET 

CPI 

0  3H 

JNZ 

G65 

JUMP  IF  IT  ISNT  THE  LAST  ONE 

POP 

B 

PUT  THE  NEW  MIN  ADDRESS 

IN  -3C- 

POP 

D 

PUT  THE  OLD  MAX  ADDRESS 

IN  -DE¬ 

POP 

H 

PUT  THE  OLD  MIN  ADDRESS 

IN  -HL- 

CALL 

CMPDH 

SEE  IF  MAX  IS  LESS  THAN 

MIN 

JNC 

G63 

JUMP  IF  IT  ISNT 

LXI 

11, M4 

DISPLAY  MIN>MAX  MESSAGE 

MVI 

A,  07H 

CALL 

MESSAG 

LXI 

H, 3FFFH 

•ERROR  SO  RING  BELL  AND 

START  OVER 

AGAIN 

CALL 

BELL 

LHLD 

182AH  /JUMP  TO  ESCAPE  LOCATION 

PCHL 

CALL 

MOVE 

/NOW  MOVE  THE  DATA 

CALL 

ENDIT  /FINISHED  SO  DISPLAY  END 

MESSAGE 

RET 

LXI 

H,M1 

JMP 

G58 

LXI 

H,M2 

JMP 

G58 

END 

250 


STITLE 

"BBIMS2 

WRITTEN  BY  JIM  MANLEY  THIRD  OF  SIX" 

‘ 

GLOBAL 

RECEV 

GLOBAL 

TRNSMT 

GLOBAL 

G48 

GLOBAL 

LDBUFF 

GLOBAL 

TTYLNK 

GLOBAL 

MOVE 

GLOBAL 

F  EPROM 

GLOBAL 

BIN 

GLOBAL 

M4 

r 

GLOBAL 

M5 

GLOBAL 

M6 

’  »! 

GLOBAL 

M7 

^1 

GLOBAL 

M9 

GLOBAL 

Mil 

■I 

GLOBAL 

TRMOUT 

I 

GLOBAL 

ERROR 

i 

GLOBAL 

CLEAR 

1  r 

GLOBAL 

READ 

f 

GLOBAL 

DISPL 

1 

GLOBAL 

COMPA 

r 

GLOBAL 

COMPD 

t 

GLOBAL 

ALTR 

1 

GLOBAL 

GETDAT 

f 

GLOBAL 

ALRBAD 

GLOBAL 

ADDRES 

1 

GLOBAL 

BELL 

1 

t 

GLOBAL 

MESSAG 

GLOBAL 

DSADDK 

i 

GLOBAL 

DSDATA 

GLOBAL 

NMREAD 

GLOBAL 

CMPDH 

GLOBAL 

ENDIT 

GLOBAL 

DECBIN 

COMPA 

MVI 

A, OFFH 

{IDENTIFY  AS  MEMORY  VERSES  MEMORY 

STA 

184EH 

JMP 

G123 

COMPD 

MVI 

A,  OOH 

{IDENTIFY  AS  MEMORY  VERSES  DATA 

STA 

184EH 

G123 

MVI 

C,  OOH 

{THIS  SUB  COMPARES  A  BLOCK  OF  MEMORY  TO 

A  BYTE  OR  TO 

Gli5 

INR 

C 

{ANOTHER  BLOCK  OF  MEMORY, -C-  IS 

COUNTING  HOW  MANY 

MOV 

A,C 

{ADDRESS  WE  HAVE, NOW  WE  ARE  CHECK  WHICH 

ADDRESS  WE  ARE  GETTING 

CPI 

OlH 

{IS  IT  THE  FIRST  ONE? 

JZ 

G115 

{JUMP  IF  IT  IS, AND  SET  UP  TO  DISPLAY 

MESSAGE 

LXI 

H,M(5 

{IT  MUST  BE  THE  SECOND  ADDRESS  SO  SET 

UP  TO  DISPLAY  MESSAGE 

J  G117 

MVI 

A,  08H 

1 

'  4 

CALL 

MESSAG 

t 

i _ 

j 

LXI 

H, IBOSH 

CALL 

ADORES 

JC 

G145 

PUSH 

D 

MOV 

A,C 

t 

4 

CPI 

02H 

♦  * 

1 

JNZ 

G1 15 

LXI 

H,Mii 

k  1 
p  ^ 

MVI 

A,  07H 

CALL 

MESSAG 

1 . 

1 

LDA 

184EH 

i ' 

OKA 

A 

JM 

Cl  20 

\ 

■  1 

LXI 

H, 1805H 

CALL 

GETDAT 

I 

JC 

Gi45 

* 

POP 

D 

POP 

H 

PUSH 

PSW 

• 

CALL 

CMPDH 

t. 

JC 

G122 

h 

G131 

POP 

PSW 

CMP 

M 

PUSH 

H 

! 

POP 

B 

PUSH 

PSW 

i 

MOV 

A,M 

CNZ 

COMPSB 

CALL 

CMPDH 

JNZ 

G124 

POP 

PSW 

G126 

CALL 

RET 

ENDIT 

G124 

INX 

H 

JMP 

G131 

G122 

POP 

PSW 

LXI 

H,M4 

MVI 

A,  07H 

G118 

CALL 

MESSAG 

LXI 

H, 3FFFH 

CALL 

BELL 

i 

G145 

LHLD 

PCHL 

18  2AH 

G136 

CALL 

CLEAR 

1 

i 

JMP 

G145 

G116 

LXI 

H,M5 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

; RETURN  IF  THERE  WAS  AN  ERROR  IN  SUB 
;SAVE  ADDRESS 

;CHECK  IF  THIS  IS  THE  LAST  ADDRESS  WE 

HAVE  TO  GET 


;JJMP  IF  ITS  NOT  AND  GET  ANOTHER 

f 

;DISPLAY  AGAINST  MESSAGE 


ADDRESS 


;I3  THIS  MEMORY  VERSES  MEMORY  OR  VERSES 

DATA? 

;JUMP  IF  IT  IS  MEMORY  VERSES  MEMORY 
;LOAD  -HL-  WITH  STATUS  ADDRESS 
;GET  A  DATA  BYTE 

; RETURN  IF  THERE  WAS  INCORRECT  MODE 
;GET  BACK  MAX  ADDRESS  AND  PUT  IN  -DE- 
;GET  BACK  MIN  ADDRESS  AND  PUT  IN  -HL- 
;SAVE  -ACC- 

;IS  MIN  GREATER  THAN  MAX? 

;JUMP  IF  IT  WAS  AND  DISPLAY  MIN>MAX 

MESSAGE 

;GET  BACK  DATA 
;IS  (HL)=-ACC-  ? 


;CALL  IF  IT  ISNT  AND  DISPLAY  ADDRESS 

AND  DATA 

;IS  THIS  THE  LAST  COMPARISON? 

;GO  AND  POINT  TO  NEXT  COMPARISON 

LOCATION 


;FINISH  UP 


;DISPLAY  MIN>MAX  MESSAGE 


;RING  BELL 
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G12U 


G130 


COMPSB 


G134 


JMP 

G117 

LXI 

H, 1805H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

ADDRES 

;GET  AN  ADDRESS 

JC 

G145 

.•RETURN  IF  THERE  WAS  AN  ERROR  IN  SU3 

MOV 

B,D 

.•MOVE  -DE-  INTO  -3C- 

MOV 

C,  E 

POP 

D 

;GET  BACK  MAX  AND  PUT  IT  IN  -DE- 

POP 

H 

.•GET  BACK  MIN  AND  PUT  IT  IN  -HL- 

CALL 

CMPDH 

;CHECK  IF  MIN>MAX 

JC 

G122 

.•JUMP  IF  MIN>MAX 

LDAX 

B 

.•MOVE  WHATG  IN  -BC-  AND  COMPARE  IT  TO 

WHATS  IN  -HL- 

CMP 

M 

CNZ 

COMPSB 

.•CALL  IF  THEY  ARENT  EQUAL  AND  DISPLAY 

DATA  AND  ADDRESS 

CALL 

CMPDH 

.•CHECK  IF  THIS  IS  THE  LAST  OWE 

JZ 

G126 

.•FINISH  UP 

INX 

3 

.•POINT  TO  NEXT  LOCATION  TO  3E  CHECKED 

INX 

H 

JMP 

G130 

PUSH 

H 

;THIS  SUB  DISPLAYS  DATA  AND  ADDRESS  AND 

WAITS  FOR  A  CR 

PUSH 

D 

PUSH 

PSW 

CALL 

CLEAR 

.•CLEAR  ALL  DISPLAYS  FIRST 

MOV 

D,B 

;MOVE  -BC-  INTO  -DE-  TO  BE  DISPLAYED 

MOV 

E,C 

LXI 

H, 1805H 

.•LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

DSADDR 

.•DISPLAY  THE  ADDRESS 

PUSH 

PSW 

MVI 

A,0A0H 

.•OUTPUT  A  SPACE 

CALL 

TRMOUT 

POP 

PSW 

CALL 

DSDATA 

.•DISPLAY  DATA 

PUSH 

B 

.•WAIT  IN  LOOP  UNTIL  SPACE 

CALL 

READ 

POP 

B 

CPI 

9BH 

.•IS  IT  AN  ESC  ,  IF  IT  IS  THEN  GO  HOME 

JZ 

G136 

CPI 

8DH 

JNZ 

G134 

POP 

PSW 

POP 

D 

POP 

H 

RET 

vvi 

A,  07H 

.•THIS  SUB  ALTERS  A  MEMORY  LOCATION 

LX' 

M ,  M  b 

.-SET  UP  TO  DISPLAY  ADDRESS  MESSAGE 

Lx; 

•  ■ 

B  ,  ">0043 

.•OFFSET  THIS  MESSAGE 

■> 

'IK  ..AL 

.•LOAl.'  -HL-  WITH  LiTATUS  ADDRESS 


JC 

G99 

;JJMP  IF  THERE  WAS  AN  ERROR  IN  SUB 

LXI 

H, 1801H 

G95 

CALL 

CLEAR 

.-DISPLAY  THE  ADDRESS 

CALL 

DSADDR 

MVI 

A, OAOH 

; OUTPUT  A  SPACE 

CALL 

TRMOUT 

G104 

LUAX 

U 

.-LOAD  -ACC-  WITH  DATA 

CALL 

DSDATA 

.-DISPLAY  THE  DATA 

MVI 

A, OADH 

CALL 

TRMOUT 

G105 

PUSH 

D 

MVI 

> 

o 

.-SET  UP  FLAG  TO  TELL  SUB  GETDAT  TO 

RETURN 

STA 

184911 

CALL 

GETDAT 

;GET  DATA 

JC 

G96 

.-JUMP  IF  MODE  ERROR 

POP 

D 

STAX 

0 

.-STORE  NEW  DATA 

G97 

INX 

0 

.-POINT  TO  NEW  LOCATION  TO  CHANGE 

JMP 

G95 

G96 

LDA 

1849H 

.-CHECK  TO  SEE  IF  MODE  ERROR  OCCURED 

ORA 

A 

JM 

GlOO 

.-JUMP  IF  ERROR 

POP 

D 

JMP 

G97 

.-JUMP  TO  POINT  TO  NEXT  ADDRESS 

G99 

MOV 

A,B 

.-CHECK  IP  MODE  ERROR  OCCURED  IN  SUB 

CPI 

OSH 

JZ 

G1S2 

.-JUMP  IF  IT  IS 

LXI 

H,M9 

.-DISPLAY  ERROR  MESSAGE 

MVI 

A,  OSH 

G151 

CALL 

MESSAG 

Glb2 

LXI 

H,  SFb'FH 

,-SET  UP  TO  RING  BELL 

CALL 

BELL 

G150 

LHLD 

182AH 

PCHL 

GlOO 

XRA 

A 

.■CLEAR  GETDAT  FLAG 

STA 

1849H 

JMP 

G150 

GETDAT 

PUSH 

H 

,-THIS  SUB  GET  A  DATA  BYTE,  ALSO  CAN 

RETURN  UPON  0000  ENTRY 

XRA 

A 

;SET  UP  TO  CLEAR  ADDRESS  FLAG  IN 

ADDRESS  SUB 

STA 

1848H 

CALL 

ADORES 

.-GET  THE  DATA 

MVI 

A, OFFH 

,-SET  UP  TO  SET  ADDRESS  FLAG  IN  ADDRESS 

SUB 

STA 

1848H 

JC 

G139 

,-JJMP  IF  THERE  WAS  AN  ERROR  IN  SUB 

MOV 

A,U 

;CHECK  TO  SEE  IF  MSBYTE  OF  -DE-  IS  00 

CPI 

OOH 

MOV 

A,  E 

JZ 

G133 

.-JUMP  IF  GOOD  DATA 

254 


LXI 

H,M7  ;SET  UP  TO  DISPLAY  BAD  DATA  MESSAGE 

MVI 

A,  OSH 

CALL 

MESSAG 

LXI 

H, 3FFFH 

;SET  UP  TO  RING  BELL 

CALL 

BELL 

MVI 

B,04H 

;SET  -B-  TO  BE  4  FOR  ERROR 

G132 

STC 

;SET  THE  CARRY  TO  SHOW  GENERAL  ERROR 

G133 

POP 

H 

RET 

G139 

MOV 

A,B 

;WAS  THERE  A  MODE  ERROR? 

CPI 

OSH 

JZ 

G132 

;JUMP  IF  THERE  WAS 

CPI 

OOH 

;SEE  IF  WE  ARE  TO  RETURN  ANY  WaY 

JZ 

G137 

;J'JMP  TO  CHECK  FLAG 

G135 

LXI 

H,  3FFFfl 

;SET  UP  TO  RING  BELL  AND  GO  GET  GOOD 

DATA 

CALL 

BELL 

POP 

H 

JMP 

GETDAT 

G137 

LDA 

1849H 

;CHECK  RETURN  FLAG 

ORA 

A 

JP 

G135 

;GO  RING  BELL  AND  GET  GOOD  DATA  BECAUSE 

NOT  SUPPOSED  TO  RETURN 

XRA 

A 

;CLEAR  THIS  FLAG  FOR  NEXT  SUB 

STA 

1849H 

JMP 

G132 

/FINISH  UP 

OECBIN 

PUSH 

D 

/THIS  SUB  CONVERTS  DECIMAL  NUMBER  IN 

-HL-  INTO  BINARY 

PUSH 

B 

PUSH 

PSW 

MOV 

A,  H 

/CHECK  EACH  DIGIT  AND  MAKE  SURE  IT  HAS 

NO  LETTERS  IN  IT 

AN  I 

CFH 

CPI 

OAH 

JNC 

G127 

MOV 

A,H 

ANI 

OF  OH 

CPI 

OAOH 

JNC 

G127 

MOV 

A,  L 

ANI 

OFH 

CPI 

OAH 

JNC 

G127 

MOV 

A,  L 

ANI 

OFOH 

CPI 

OAOH 

JNC 

G127 

LXI 

D, OOOOH 

/SEE  IF  WORD  IS  0000 

CALL 

CMPDH 

JZ 

G12S 

/JUMP  IF  IT  IS 

LXI 

D, 8191H 

/SEE  IF  WORD  IS  GREATER  THAN  MAX  MEMORY 

CALL 

CMPDH 

255  - 


JC 

G127 

PUSH 

11 

LXI 

H, OOOOH 

SHLD 

ia4AH 

LXI 

H.BIN 

MOV 

A,  L 

OCR 

A 

STA 

i34Fh 

LXI 

B, ooiyH 

DAD 

B 

LXI 

3 , OOOOH 

GlOl 

MOV 

D.M 

DCX 

H 

MOV 

E.M 

DCX 

XTHL 

H 

PUSH 

H 

MOV 

H  ,  B 

MOV 

L.C 

MOV 

A,  L 

AuD 

E 

JC 

DAA 

G109 

JNC 

GllO 

Gill 

I  NR 

H 

GliO 

MOV 

L,  A 

MOV 

A ,  H 

ADD 

DAA 

D 

MOV 

XCHG 

H.A 

POP 

A 

CALL 

CMPDH 

JZ 

G102 

JNC 

Gi38 

G123 

MOV 

3,U 

MOV 

C,  E 

G138 

PUSH 

H 

LHLD 

lb4AH 

MOV 

RAL 

A,  L 

MOV 

L,  A 

MOV 

RAL 

A.H 

MOV 

H,A 

SHLD 

184AH 

POP 

XTHL 

H 

;JUMP  It'  IT  IS  AND  DISPLAY  ERROR 

MESSAGE  THEN  GO  HOME 


;SET  BINARY  TO  0000 
.-STORE  BINARY  EQUIVALENT 
.-POINT  TO  DECIMAL  LOOK  UP  TABLE 
.-FIND  END  OF  TABLE 

.-STORE  FIRST  LOCATION  FOR  LATER  USE 


.-SET  NEW  DECIMAL  TO  0000 
;GET  DECIMAL  FROM  MEMORY 


;Nax  DECIMAL  NUMBER  IS  IN  -DE- 
.-EXCHANGE  NUMBER  TO  CONVERT  AND  POINTER 
.-SAVE  NUMBER  TO  CONVERT 

.-PUT  NEW  DECIMAL  NUMBER  INTO  -HL- 
.-ADD  -HL-  TO  -DE-  AND  ’DECIMAL  ADJUST 


,-MOVE  -HL-  INTO  -DE- 
,-GET  BACK  NUMBER  TO  BE  CONVERTED 
;SEE  IF  THIS  ADDITION  DOESNT  GO  HIGHER 
THAN  NUMBER  TO  BE  CONVERTED 
,-HAVE  TO  SET  THE  CY  BEFORE  ROTATING 

INTO  BINARY 


,-JUMP  IF  IT  WAS 


SAVE  NUMBER  TO  BE  CONVERTED 

GET  BINARY  EQUIVALENT  THAT  WE  SAVED 

ROTATE  IN  THE  CY  BIT 


.-SAVE  BINARY  EQUIVALENT 

,-GET  BACK  NUMBER  TO  BE  CONVERTED  BUT 

ONLY  TO  CORRECT  STACK 
,-NOW  SWITCH  NUMBER  TO  BE  CONVERTED  WITH 
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LDA 

184FH 

CMP 

L 

JNZ 

GlOl 

POP 

H 

LHLD 

184AH 

G125 

POP 

PSW 

POP 

B 

POP 

RET 

D 

G109 

DAA 

INR 

H 

JC 

Gill 

JMP 

GllO 

G102 

STC 

JMP 

G128 

GI27 

LXI 

H,M9  ;D 

MVI 

A, OSH 

CALL 

MESSAG 

LXI 

H, 3FFFH 

CALL 

BELL 

LHLD 

PCHL 

182AH 

DISPL 

LDA 

1855H 

ORA 

A 

JP 

G171 

MVI 

C.  OOH 

G83 

INR 

C 

MOV 

A.C 

CPI 

OlH 

JZ 

G84 

LXI 

H,M6  ;S 

G85 

MVI 

A,  03H 

CALL 

MESSAG 

G86 

LXI 

H, 1800H 

CALL 

ADORES 

JC 

G94 

G87 

PUSH 

D 

MOV 

A,C 

CPI 

0  2H 

JNZ 

G83 

POP 

D 

POP 

H 

CALL 

CMPDH 

JC 

G90 

CALL 

XCHG 

CLEAR 

MOV 

A.L 

DECIMAL  POINTER 

;IS  THIS  THE  LAST  LOOKUP  LOCATION? 

;JUMP  IF  THE  COMPARISON  A  WHILE  BACK 

WAS  EQUAL 

.•CORRECT  STACK 

;PUT  BINARY  CONVERSION  INTO  -HL- 


;THIS  PROGRAM  DISPLAYS  DATA  LOCATED 

BETWEEN  TO  ADDRESSES 

;IF  CONSOLE  IS  ACTIVE  DISPLAY  ERROR 

;-C-  IS  NUMBER-OF-ADDRESG  COUNTER 
;FIND  OUT  WHICH  ADDRESS  WE  ARE  LOOKING 

FOR 

;IS  IT  THE  FIRST  ONE? 

.•JUMP  IF  IT  IS 
;T  up  TO  DISPLAY  MESSAGE 


PUT  STATUS  ADDRESS  INTO  -HL- 
GET  AN  ADDRESS 

JUMP  IF  THERE  WAS  AN  ERROR  IN  SUB 
SAVE  ADDRESS 

IS  THIS  THE  LAST  ADDRESS  WE  HAVE  TO 

GET  ? 

.♦JUMP  IF  IT  ISNT 

.-GET  BACK  MAX  AND  PUT  IT  IN  -DE- 
;GET  BACK  MIN  AND  PUT  IT  IN  -HL- 
;MAKE  SURE  MIN  ISNT  GREATER  THAN  MAX 
.•JUMP  IF  MIN  IS  GREATER  THAN  MAX 

.-PUT  MIN  ADDRESS  INTO  -DE- 

;SET  LOW  NIBBLE  MAX  TO  F  AND  LOW  NIBBLE 
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MIN  TO  00 


OR  I 

OFH 

MOV 

L,  A 

MOV 

A ,  L 

AN  I 

OF  OH 

MOV 

E,  A 

PUSH 

H 

G174 

LXI 

H, 1800H 

;PUT  STATUS  ADDRESS  INTO  -HL- 

CALL 

DSAUDR 

G173 

MVI 

A, OAOH 

; OUTPUT  A  SPACE 

CALL 

TRMOUT 

IN 

91H 

;IS  ENTRY  FROM  TERMINAL  PRESENT? 

RRC 

RRC 

JNC 

G121 

.-JUMP  IF  NO  ENTRY 

IN 

90H 

.•CHECK  FOR  ESCAPE  CHARECTOR 

OR  I 

80H 

CPI 

9BH 

JZ 

G93 

;IF  ESCAPE  THEN  TERMINATE  PROGRAM 

G129 

IN 

91H 

.•LOOK  FOR  NEXT  ENTRY,  STAY  IN  LOOP  UNTIL 

ANOTHER  ENTRY 

RRC 

RRC 

JNC 

G129 

IN 

90H 

G121 

LDAX 

U 

;GET  DATA  TO  BE  DISPLAYED 

LXI 

H, 1800H 

.•PUT  STATUS  ADDRESS  INTO  -HL- 

CALL 

DSDATA 

; DISPLAY  DATA 

POP 

H 

CALL 

CMPDH 

.•CHECK  TO  SEE  IF  THIS  IS  THE  LAST  ONE 

JZ 

G93 

.-JUMP  IF  IT  IS  THE  LAST  ONE 

PUSH 

H 

.•SAVE  MAX  LOCATION 

INX 

D 

.•POINT  TO  NEXT  LOCATION  TO  BE  DISPLAYED 

MOV 

A,  E 

;IF  THE  LSNIBBLE  IS  A  0  OR  8  THEN 

OUTPUT  CR  LF 

ANI 

OFH 

JZ 

G172 

CPI 

08H 

JNZ 

G173 

G172 

MVI 

A,  80H 

.•OUTPUT  A  CR  LF 

CALL 

TRMOUT 

MVI 

A,8AH 

CALL 

TRMOUT 

JMP 

G174 

C17i 

CALL 

ERROR 

;CALL  ERROR  IF  CONSOLE  IS  ACTIVE 

RKT 

G93 

CALL 

ENDIT 

.•FINISHED 

LHLD 

182AH 

PCHL 

G84 

LXI 

H ,  M  5 

JMP 

G85 

G90 

LXI 

H,M4 

;SET  UP  TO  DISPLAY  MIN>MAX  MESSAGE 
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MVI  A,07H 

CALL  MESSAG 

LXI  H,3FFFH  ;SET  UP  TO  RING  BELL 

CALL  BELL 

RET 

G94  MOV  A,B  ;CH£CK  TO  SEE  IF  MODE  ERROR  OCCURED 

CPI  OSH 

RZ  ;RETURN  IF  MODE  ERROR 

LXI  H,3FFFH  ;RING  BELL  THEN  TRY  FOR  A  GOOD  ADDRESS 

CALL  BELL 

JMP  G86 

FEPROM  XRA  A  jTHIS  PROG  OUTPUTS  DATA  TO  FAKE  EPROM 

OUT  0A3H 

LXI  H,2400H  ;MOVE  FROM  2400  TO  24FF  TO  FEOO 

LXI  D,24FFH 

LXI  B.OFEOOH 

CALL  MOVE 

LXI  H,2500H 

LXI  D,25FFH 

LXI  B, OFFOOH;MOVE  FROM  2500  TO  2SFF  TO  FFOO 

CALL  MOVE 

MVI  A,01H 

OUT  0A3H 

CALL  ENDIT 

RET 

TTYLNK  MVI  A,0FDH  ; PROGRAM  FOR  COMMUNICATIONS  BETWEEN 

BALLOON  AND  GROUND 

STA  1828H  >LOAD  LOOP  COUNTER  WITH  -3 

MVI  A,0B0H  ;LOAD  TIMER  WITH  STARTING  COUNT  USED 

FOR  TIMING  MAX  LENGTH  OF  TRANS 

OUT  0D3H 

MVI  A,0FFH 

OUT  0D2H 

OUT  0D2H 

LDA  1829H  ;USART  OR  TM  LINK? 

RAL 

JC  G103  ;JUMP  IF  US ART 

LHLD  19AEH 


MOV 

A,M 

G106 

CPI 

OSH 

JNZ 

G48 

JUMP  IF 

NOT  AN  ENQUIRE  CHARECTOR 

G78 

LDA 

19B1H 

GET  COMMAND  BYTE 

CPI 

OlH 

IS  IT  A 

PAGE  CONSTRUCTION  COMMAND? 

JZ 

G79 

JUMP  IF 

IT  IS 

CPI 

02H 

IS  IT  A 

BOOK  RUN  COMMAND? 

JZ 

G80 

JUMP  IF 

IT  IS 

CPI 

04H 

IS  IT  A 

PAGE  RUN  PROGRAM? 

JZ 

G80 

JUMP  IF 

IT  IS 

CPI 

OSH 

IS  IT  A 

DUMP  COMMAND? 

JZ 

G81 

JUMP  IF 

IT  IS 

CPI 

20H 

IS  IT  A 

WAIT  COMMAND? 

JZ 

G81 

JUMP  IF 

IT  IS 

CPI 

JZ 

CPI 

JZ 

G70  MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
ST  A 
MVI 
STA 
JMP 

G88  LXI 

JMP 

G82  CALL 

JMP 

G79  LXI 

JMP 

G80  LXI 

JMP 

G81  LXI 

G72  LXI 

G71  MOV 

CALL 
CALL 
INX 
JNZ 
LJA 
INK 
STA 
JN2 
MVI 

G7.3  CALL 

JC 
CPI 
JZ 
CPI 
JZ 
CPI 
JZ 
CPI 
JC 
CPI 


40H 

G81 

lOH 

G88 

A,  02H 

THNSMT 

A,  03H 

TRNSMT 

A,  02H 

TRNSMT 

A,  0311 

TRNSMT 

A,  02H 

THNSMT 

A,  0311 

TRNSMT 

A,  40H 

I9B1H 

A,  0  3H 

19B2H 

G48 

U,  1931:;H 
G72 

TRNSMT 

G48 

D, 19E2H 
G72 

D, 19b6H 
G72 

D ,  1 98  2H 
H,  198011 
A,M 

TRNSMT 

GMPDH 

H 

G71 

1828H 

A 

1828H 

G78 

8, OB  OH 

HECtV 

G48 

IBH 

G48 

1511 

G74 

03il 

G76 

3011 

G75 

4  OH 


;IS  IT  A  CONTINUE  COMMAND? 

;JUMP  IF  IT  IS 

;IS  IT  A  GO  TO  COMMAND? 

;JUMP  IF  IT  IS 

;TRANSMIT  AN  STX  CHARECTOR 


;CLEAR  COMMAND 


;GET  END  ADDRESS 

;GET  END  ADDRESS 

;GET  END  ADDRESS 

;GET  STARTING  ADDRESS 

;GET  A  CHARECTOR 

;TRANSMIT  CHARECTOR 

;WA5  THIS  THE  LAST  TRANSMITION? 

;JUMP  IF  IT  WASNT  THE  LAST  ONE 
;GET  LOOP  COUNTER  AND  INCREAMENT 


;GET  BACK  CHARECTORS  OR  ABORT  OR  REPEAT 

;JUMP  IP  ERROR 

;JJMP  IF  ABORT  COMMAND 

;IS  IT  A  REPEAT  CHARECTOR 

;JUMP  IF  IT  IS 

;IS  IT  AN  ETX  CHARECTOR? 

;JUMP  IF  IT  IS 

;IS  THERE  DATA  TO  BE  DISPLAYED? 

;JUMP  IP  THERE  ISNT 
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G75 


m 


T 


JZ 

G75 

OUT 

90H 

G75 

INR 

B 

JNZ 

G73 

G76 

MVI 

A, SDH 

CALL 

TRMOUT 

MVI 

A,  8AH 

CALL 

THMOUT 

MVI 

A, OAAH 

CALL 

TRMOUT 

LDA 

19B1H 

;IF  WAIT  COMMAND  DONT  RESET  MESSAGE 

CPI 

20H 

JZ 

G48 

MVI 

A,40H 

jCLEAR  COMMAND  DEFINITION 

STA 

19B1H 

MVI 

A,  03H 

STA 

19B  2H 

JMP 

G48 

G74 

MVI 

A,0FDH 

;LOAD  LOOP  COUNTER  WITH  -3 

STA 

1828H 

JMP 

G78 

G103 

IN 

OCIH 

RAR 

RAR 

JNC 

G103 

IN 

OCOH 

;GET  CHARECTOR 

JMP 

G106 

END 
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FORTH  OF  SIX 


STITLE 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 


"BB1MS3  WRITTEN  BY  JIM  MANLEY 

M45 

M43 

M44 

GOTOBB 

MAIN 

LOP 

RATIO 

M30 

M31 

M32 

AMU 

TIME 

MASK 

lUNUM 

RPAGE 

RBOOK 

NPAGE 

DUMP 

CONT 

WAIT 

M12A 

RECEV 

TKNSMT 

LUBUFF 

M4 

M5 

M6 

M7 

M13 

B  INC  ON 

GETDAT 

FILL 

BELL 

FILLM 

TRMOUT 

SWITCH 

ERROR 

DECBIN 

BINUEC 

GOTO 

ADDRES 

CMPDH 

ENDIT 

MESSAG 

CLEAR 

DU  DATA 

DSADDR 

READ 

BIN 

TERM  IN 
GbB2 
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r 


GLOBAL 

TRMOUT 

GLOBAL 

BAUD 

BINDEC 

PUSH 

H 

;THIS  SUB  CONVERTS  BINARY  WORDS  INTO  4 

PLACE  DECIMAL 

PUSH 

B 

PUSH 

PSW 

MVI 

A, 0F8H 

;THIS  IS  OUR  LOOP  COUNTER  8  FOR  8  BITS 

PER  BYTE 

STA 

184FH 

;STORE  IN  BUFFER 

XRA 

A 

;THIS  IS  TO  DETEEIMINE  IF  MSBYTE  HAS 

BEEN  PROCCESSED 

STA 

182CH 

LXI 

H,BIN 

;LOAD  -HL-  WITH  BEGINNING  OF  LOOK  UP 

TABLE 

LXI 

B , OOOOM 

;LOAU  -BC-  WITH  DECIMAL  ZERO 

G188 

MOV 

A,  E 

;-DE-  CONTAINS  BINARY  DATA  TO  BE 

CONVERTED 

RAR 

.•CHECK  FOR  A  SET  BIT 

MOV 

E,  A 

JNC 

G192 

.-JUMP  IF  NOT  SET 

MOV 

A,C 

;GET  DECIMAL  EQUIVALENT 

ADD 

M 

;ADD  TO  WHATS  IN  MEMORY  AT  LOCATION 

-HL- 

JC 

G189 

;JUMP  IF  WE  NEED  TO  ADD  TO  NEXT  BYTE 

DAA 

.•ADJUST  DECIMAL 

JNC 

G190 

.•JUMP  IF  NO  CARRY  OUT  OF  FIRST  BYTE 

G191 

INR 

8 

.•ADD  ONE  TO  -B-  IF  CARRY 

G190 

MOV 

C,  A 

.•ADJUST  DECIMAL 

INX 

H 

.•POINT  TO  MSBYTE  OF  EQUIVALENT 

MOV 

A,B 

.-GET  MSBYTE  OF  DECIMAL  EQUIVALENT 

ADD 

M 

.•ADD  TO  BYTE  POINTED  TO  BY  -HL- 

DAA 

.•ADJUST  -ACC- 

MOV 

B,A 

G193 

INX 

H 

; POINT  TO  NEXT  BIT  EQUIVALENT 

LDA 

184FH 

;INCREAMENT  BIT  COUNTER 

INR 

A 

STA 

184FH 

JNZ 

G188 

.•JUMP  AND  CONTINUE  WITH  NEXT  IF  NOT 

DONE 

MOV 

E,D 

.•MOVE  MSBYTE  OF  BINARY  INTO  -E- 

LDA 

182CH 

;JUMP  IF  THIS  SECTION  WAS  ALEADY  DONE 

RLC 

JNC 

Gi98 

.•JUMP  IF  IT  WASNT 

MOV 

D,B 

.•MOVE  DECIMAL  NUMBER  INTO  -DE- 

MOV 

E ,  C 

POP 

PSW 

POP 

3 

POP 

H 

RET 

G189 

DAA 

.•ADJUST  DECIMAL 

INR 

B 

.•ADD  ONE  TO  MSBYTE  OF  DECIMAL 

JC 

G191 

;IF  A  CARRY  OUT  OF  DECIMAL  ADJUST 
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_ A 


Giy2 

Giye 

GOTO 


DSDATA 


G2i3 

G81 


JMP 

G19U 

INX 

li 

JMP 

G193 

MVI 

A, OFFH 

3TA 

182CH 

MVI 

A, 0F8H 

STA 

184FH 

JMP 

G188 

MVI 

A.  07U 

LXI 

il.MS 

LXI 

D. 0004H 

DAD 

D 

CALL 

MESSAG 

LXI 

H,  1807il 

CALL 

ADORES 

RC 

XCHG 

PCHL 

PUSH 

D 

PUSH 

PSW 

MOV 

E,  A 

MOV 

A.M 

RRC 

RRC 

RRC 

JC 

G81 

MVI 

D.  OUH 

CALL 

BINDEC 

MOV 

A.  U 

AN  I 

OFH 

CALL 

T KM OUT 

STA 

3805H 

MOV 

A,  E 

ANI 

OF  OH 

RRC 

RRC 

RRC 

RRC 

CALL 

TKMOUT 

STA 

3806H 

MOV 

A.  E 

ANI 

OFH 

CALL 

TRMOUT 

STA 

3807H 

POP 

PSW 

POP 

D 

RET 

MOV 

A,  E 

INC REAM ENT  -B- 


; CORRECT  POINTER 

;SET  FLAG  THAT  WE  HAVE  DONE  PART  ONE 


.-THIS  PROGRAM  GIVES  PROCCESSOR  CONTROL 

AT  LOCATION  XXXX 


;OFFSET  THIS  MESSAGE 


.-THIS  SUB  SEPARATES  DATA  INTO  TO 

NIBBLES  AND  DISPLAYS 
;THEM  ,1T  ALSO  CONVERTS  IF  NEEDED 
;SAVE  DATA  IN  -E- 

;CIIECK  TO  SEE  IF  CONVERTION  IS  NEEDED 


;MOVE  BINARY  FLAG  INTO  -ACC- 
jJ'JMP  IF  IT  IS  ALREADY  IN  BINARY 
;S£T  UP  TO  CONVERT  -DE- 


;NOW  SEPARATE  INTO  3  NIBBLES  AND 


;MASK  OUT  HIGH  NIBBLE 


DISPLAY 


;  DISPLAY  IT 


;MASK  OUT  LOW  NIBBLE 

;MOVE  HIGH  NIBBLE  INTO  LOW  NIBBLE 


.•DISPLAY  IT 


.'DISPLAY  IT 


.'ALREADY  BINARY  SO  DISPLAY  ONLY  2 
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DSADDR 


G82 


NIBBLES 


AN  I 

RRC 

RRC 

RRC 

RRC 

OF  OH 

.-MASK  OUT  HIGH  NIBBLE 

CALL 

TRMOUT 

STA 

3806H 

.•DISPLAY  IT 

MOV 

A,  E 

AN  I 

OFH 

.-MASK  OUT  LOW  NIBBLE 

CALL 

TRMOUT 

STA 

3807H 

JMP 

G2i3 

PUSH 

H 

;THIS  SUB  SEPARATES  ADDRESS  INTO  4 

NIBBLES  AND  DISPLAYS 

PUSH 

D 

.•THEM  IT  ALSO  CONVERTS  IF  NEEDED 

PUSH 

PSW 

MOV 

A,M 

.-PUT  THE  STATUS  INTO  THE  -ACC- 

RRC 

;CHECK  FOR  CIRECT  ACCESS  FLAG 

JC 

G82 

.•JUMP  IF  NO  ADJUSTMENT  IS  NEEDED 

LXI 

H, OEOOOH 

.•SUBTRACT  2000H  FROM  ADDRESS 

DAD 

XCHG 

D 

RRC 

RRC 

.•IS  DATA  BINARY 

JC 

G82 

.•JUMP  IF  IT  IS 

CALL 

BINDEC 

.•CONVERT  IF  NEEDED 

MOV 

A,D 

;WE  WILL  NOW  DISPLAY  -DE- 

ANI 

RRC 

RRC 

RRC 

RRC 

OFOH 

.•MASK  OUT  HIGH  NIBBLE 

CALL 

TRMOUT 

STA 

3800H 

.•DISPLAY  IT 

MOV 

A,D 

ANI 

OFH 

;MASK  OUT  LOW  NIBBLE 

CALL 

TRMOUT 

STA 

3801H 

.•DISPLAY  IT 

MOV 

A,  E 

ANI 

RRC 

RRC 

RRC 

RRC 

OFOH 

.•MASK  OUT  HIGH  NIBBLE 

CALL 

TRMOUT 

STA 

3802H 

.•DISPLAY  IT 

MOV 

A,  E 

ANI 

OFH 

;MASK  OUT  LOW  NIBBLE 

CALL 

TRMOUT 

STA 

3803H 

.-DISPLAY  IT 

POP 

PSW 

265 


BAUD 


G171 


.1 


POP 

D 

POP 

il 

RET 

LXI 

H,M13 

;T4IS  SUB  CHANGES  THE  BAUD  RATE  FOR 

TERMINAL  USE 

:«1VI 

A  ,  04R 

;SET  UP  TO  DISPLAY  RATE 

CALL 

M  ESSAO 

LXI 

H, IBhOH 

;LOAD  -HL-  WITH  FAKE  STATUS  ADDRESS 

MVI 

A,  05H 

;SET  DIRECT  AND  BINARY  FLAGS 

MOV 

M  ,  A 

; STORE  STATUS 

CALL 

ADORES 

;GET  BAUD  RATE 

JC 

G28 

.-JUMP  IF  ERROR 

LXI 

B, 1280 

;LOAU  DIVIDER  FOR  75  BAUD 

LXI 

H, 007 bH 

CALL 

CMPDH 

JZ 

G17i 

;JUMP  IF  75  BAUD 

LXI 

13 , 87  3 

;liO  BAUD 

LXI 

H, 01 lOH 

CALL 

CMPDIl 

JZ 

G171 

LXI 

B,  320 

;300  BAUD 

LXI 

H, 0300H 

CALL 

CMf  DH 

JZ 

G171 

LXI 

B,  160 

;600  BAUD 

LXI 

H,  OGOO’J 

CALL 

CMPDH 

JZ 

G171 

LXI 

B,80 

;1200  BAUD 

LXI 

H, 1200H 

CALL 

CMPDH 

JZ 

G171 

LXI 

B,  40 

;2400  BAUD 

LXI 

H,  240011 

CALL 

CMPDH 

JZ 

G171 

LXI 

B  ,  20 

;4800  BAUD 

LXI 

H,  4800.4 

CALL 

CMPDH 

JZ 

C171 

LXI 

B  ,  10 

;9600  BAUD 

LXI 

H, 9600H 

CALL 

CMPDH 

JNZ 

G2S 

MVI 

A,  3EH 

;SET  UP  TO  TURN  ON  SYSTEM  USART  CLOCK 

OUT 

0D3H 

MOV 

A,C 

; OUT PUT  DIVIDER 

OUT 

ODOH 

MOV 

A,  B 

OUT 

ODOH 

CALL 

EMI)  IT 

KET 

?66 


G28 

CALL 

RET 

ERROR 

SWITCH 

LDA 

RAL 

CMC 

RAR 

STA 

1855H 

1855H 

;THIS  SUB  SWITCHES  THE  OUTPUT  AND  INPUT 
DEVICE  TO  THE  OPPOSITE  OF  WHICH  IT  WAS 

IN 

OB  2H 

;NOW  COMPLIAMENT  CONSOLE  LED 

ANI 

CMA 

ANI 

RRC 

OR  I 

OUT 

02H 

02H 

0211 

0B3H 

.‘REMOVE  ALL  BITS  BUT  THE  2ND 
.‘COMPLIAMENT  BIT  2 

.‘ROTATE  INTO  LSBIT 

CALL 

RET 

ENDIT 

.‘FINISHED  GO  HOME 

ASCONV 

CPI 

RC 

OB  OH 

;THIS  SUB  CONVERTS  ASCII  TO  SYSTEM 

BINARY 

;IS  IT  GREATER  THAN  OR  EQUAL  TO  A  0? 

CPI 

OBAH 

;IS  IT  LESS  THAN  AN  A? 

JNC 

G8 

.‘JUMP  IF  ITS  NOT 

SUI 

RET 

OB  OH 

.‘CONVERT  TO  BINARY  0  TO  9 

G8 

CPI 

RC 

OCIH 

;IS  IT  GREATER  THAN  OR  EQUAL  TO  AN  A? 
.‘RETURN  IF  IT  ISNT 

CPI 

RNC 

0C7H 

.‘IS  IN  LESS  THAN  A  G? 

.‘RETURN  IF  IT  ISNT 

SUI 

RET 

0B7H 

;CONVERT  TO  BINARY  A  TO  F 

BINCON 

RAL 

,‘THIS  SUB  CONVERTS  SYSTEM  BINARY  TO 

ASCII 

JC 

RAR 

G29 

.‘JUMP  IF  MSBIT  IS  SET  THIS  MEANS 

ALREADY  IN  ASCII 

CPI 

OAH 

;IS  IT  LESS  THAN  A? 

JNC 

G31 

.‘JUMP  IF  ITS  NOT 

G29 

ADI 

RET 

RAR 

RET 

OB  OH 

.‘CONVERT  TO  ASCII  0  TO  9 

G31 

ADI 

RET 

0B7H 

.‘CONVERT  TO  ASCII  A  TO  F 

FILLM 

MVI 

C,  OOH 

.‘THIS  PROGRAM  FILLS  DEFINED  MEMORY  WITH 

DEFINED  DATA 

G66 

INR 

C 

.‘THIS  TELLS  YOU  WHAT  ADDRESS  POSITION 

YOU  ARE  FILLING 

MOV 

A,C 

.‘FIND  OUT  WHICH  ONE  YOUR  FILLING  AND 

DISPLAY  MESSAGE 

CPI 

JZ 


OlH 

G67 


IS  IT  THE  FIRST  ONE  ? 
JUMP  IF  IT  IS 


G6y 

MVI 

A,  OSH 

CALL 

MESSAG 

G71 

LXI 

H, 1802H 

;PUT  STATUS  ADDRESS  IN  -HL- 

CALL 

ADORES 

;GET  AN  ADDRESS 

JC 

G72 

.•JUMP  IF  THERE  WAS  AN  ERROR  IN  THE  SUB  ’ 

PUSH 

D 

.•SAVE  THE  ADDRESS 

MOV 

A,C 

;FIND  OUT  IF  THIS  IS  THE  LAST  ADDRESS 

NEEDED 

CPI 

02H 

JMZ 

G66 

.•JUMP  IF  IT  ISNT  THE  LAST  ONE 

LXI 

H,M7 

;SET  UP  TO  DISPLAY  DATA  MESSAGE 

LXI 

D, 0004H 

;OFFSET  THIS  MESSAGE 

DAD 

D 

MVI 

A,  04H 

CALL 

MESSAG 

LXI 

H, 1802H 

;SET  UP  TO  GET  A  DATA  BYTE 

CALL 

GETDAT 

JC 

G79 

POP 

D 

;PUT  MAX  ADDRESS  INTO  -QE- 

POP 

H 

;PUT  MIN  ADDRESS  INTO  -HL- 

PUSH 

PSW 

;SAVE  FILLER 

CALL 

CMPDH 

;SEE  IF  MAX  IS  LESS  THAN  MIN 

JC 

G77 

;JUMP  IF  IT  IS 

POP 

PSW 

;GET  BACK  FILLER 

G74 

CALL 

FILL 

.♦FILL  MEMORY  WITH  FILLER 

CALL 

ENDIT 

RET 

G79 

LHLD 

182AH 

;SET  UP  TO  ESCAPE 

PCHL 

G77 

LXI 

H,M4 

.-SET  UP  TO  DISPLAY  MIN>MAX 

MVI 

A,  07H 

CALL 

MESSAG 

LXI 

H, 3FFFH 

POP 

PSW 

CALL 

BELL 

RET 

C67 

LXI 

H,M5 

.•JUMP  TO  DISPLAY  MESSAGE 

JMP 

G69 

G72 

MOV 

A,B 

;FIND  OUT  WHAT  ERROR  IS  PENDING 

CPI 

OSH 

;IS  IT  A  MODE  ERROR? 

JZ 

C79 

.•RETURN  IF  IT  IS 

CPI 

OOH 

;IS  IT  A  0000  ADDRESS? 

JZ 

G73 

.•JUMP  TO  FIND  OUT  IF  STANDARD  FILL  IS 

TO  BE  USED 

G68 

LXI 

H, 3FFFH 

;SET  UP  TO  RING  BELL  AND  TRY  FOR  A  GOOD 

ADDRESS 

CALL 

BELL 

JMP 

G71 

G73 

MOV 

A,C 

;IF  ADDRESS  COUNTER  IS  1  THEN  STANDARD 

FILL  IS  USED 

CPI 

OlH 

JNZ 

G68 

.•THY  FOR  A  GOOD  ADDRESS 

LXI 

H, 2000H 

;SET  UP  FOR  STANDARD  FILL 

LXI 

D, 27FFH 

MVI 

AjOFFH 

JMP 

G74 

;JUMP  TO  FILL 

TERM IN 

IN 

91H 

RAR 

RAR 

JNC 

TERM IN 

.-JUMP  IF  NO  DATA 

IN 

90H 

;READ  IN  DATA 

OR  I 

80H 

PUSH 

B 

MOV 

B,A 

;SAVE  DATA 

LDA 

18EAH 

;GET  RETURN  FLAG 

RAL 

MOV 

A,B 

POP 

B 

CNC 

ASCONV 

;CALL  IF  NOT  SET 

JMP 

G5B2 

TRMOUT 

PUSH 

B 

;THIS  SUB  DISPLAYS  -ACC-  ON  TERMINAL 

PUSH 

PSW 

LDA 

1855H 

;IS  TERMINAL  ACTIVE? 

ORA 

A 

JP 

G17 

;JUMP  IF  IT  ISNT  ACTIVE 

CALL 

BINCON 

; CONVERT  TO  ASCII 

MOV 

B,A 

G181 

IN 

91H 

;TEST  FOR  ERRORS  AND  READINESS 

RAR 

JNC 

G181 

;JUMP  IF  NOT  READY 

MOV 

A,B 

OUT 

90H 

; DISPLAY 

G17 

POP 

PSW 

POP 

B 

RET 

TRNSMT 

PUSH 

B 

;THIS  SUB  TRANSMITS  DATA  TO  BALLOON 

MOV 

3 ,  A 

;SAVE  DATA 

G1 

IN 

OCIH 

;WAIT  FOR  TRANSMITTER  READY 

RAR 

JNC 

G1 

;JUMP  IF  TRANSMITTER  NOT  READY 

MOV 

A,B 

OUT 

OCOH 

; TRANSMIT  DATA 

POP 

B 

RET 

RECEV 

PUSH 

H 

;THIS  SUB  RECEIVES  DATA  FROM  BALLOON 

PUSH 

D 

G2 

IN 

91H 

;CHECK  IP  THERE  IS  TIME  LEFT 

RLC 

JNC 

G3 

LDA 

1829H 

;WHICH  TRANSMITTION  MEDIA  IS  USED? 

RAL 

JC 

G7 

;JUMP  IF  MEDIA  IS  USART 

CALL 

LDBUFF 

.•TRANSITION  MEDIA  IS  TM 

MOV 

A,M 

;GET  NEW  BUFFER  DATA  AND  CHECK  FOR  SYNC 
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CPI 

90H 

JZ 

G83 

;JUMP  IF  IN  SYNC 

LHLD 

182AH 

LXI 

SP,  ICOOH 

PUSH 

H 

PCHL 

G83 

LDA 

196EH 

;GET  STATUS  BYTE 

AN  I 

04ii 

;IS  THERE  DATA  IN  TTY  LOCATION? 

JZ 

G2 

;JUMP  IF  NO  DATA  YET 

LHLD 

19AEH 

;GET  LOCATION  OF  TTY  BYTE 

MOV 

A,M 

;GET  TTY  DATA 

G6 

POP 

D 

POP 

H 

ORA 

A 

RET 

G3 

STC 

;S£T  ERROR  FLAG 

POP 

D 

POP 

H 

RET 

G7 

IN 

OCIH 

;CHECK  DSR 

HAL 

JNC 

G3 

RAR 

RAR 

RAR 

; CHECK  RBCIEVER  READY 

JNC 

G2 

;JUMP  IF  NOT  READY 

IN 

OCOH 

;GET  DATA 

JMP 

G6 

CNVRT 

MOV 

A,H 

;THIS  SUB  CONVERTS  -HL-  INTO  FOUR  ASCII 

CHARECTORS 

AN  I 

OFOH 

;DO  TOP  NIBBLE  FIRST 

RRC 

RRC 

RRC 

RRC 

CALL 

BINCON 

.•CONVERT  TO  ASCII 

STAX 

0 

.•STORE  IN  -DE- 

INX 

D 

MOV 

A,H 

.•DO  NEXT  NIBBLE 

AN  I 

OFH 

CALL 

BINCON 

STAX 

D 

INX 

D 

CNVRTl 

MOV 

A,  L 

;IF  ENTERED  HERE  WILL  CONVERT  -L-  INTO 

TWO  CHAR 

AN  I 

OFOH 

RRC 

RRC 

RRC 

RRC 

CALL 

BINCON 

STAX 

D 
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INX  D 

MOV  A,L 

ANI  OFH 

CALL  B INC ON 
STAX  D 

INX  D 

RET 


RPAGE 

MVI 

A, OFFH 

;THIS  SUB  SETS  UP  TO  RUN  A  PAGE  DURING 

MAIN 

JMP 

G5 

RBOOK 

XRA 

A 

;THIS  SUB  SETS  UP  TO  RUN  A  BOOK  DURING 

MAIN 

G5 

STA 

182FH 

;THIS  BUFFER  TELLS  IF  BOOK  OR  PAGE  IS 

TO  BE  RUN 

LXI 

H,M12A 

;SET  UP  TO  DISPLAY  ADDRESS  MESSAGE 

MVI 

A,  07H 

CALL 

MESSAG 

LXI 

H, 184FH 

;LOAD  -HL-  WITH  FAKE  STATUS  LOCATION 

MVI 

A, OSH 

;SET  STATUS  FOR  DIRECT  BINARY 

MOV 

M,A 

CALL 

ADORES 

;GET  LOCATION  OF  PAGE  OR  BOOK 

RC 

{RETURN  IF  ERROR 

LXI 

H, 19B0H 

{LOAD  -HL-  WITH  BEGINNING  OF  BUFFER  TO 

STORE  THIS  DATA 

MVI 

A,02H 

{STORE  A  STX  CHARECTOR 

MOV 

M,A 

INX 

H 

LDA 

182FH 

{IS  THIS  RUNNING  A  BOOK  OR  PAGE? 

RLC 

MVI 

A,  04H 

{LOAD  -ACC-  WITH  PAGE  DEFINITION 

JC 

G9 

{JUMP  IP  IT  IS  A  BOOK 

MVI 

A,  02H 

{LOAD  -ACC-  WITH  PAGE  DEFINITION 

G9 

MOV 

M,A 

{STORE  COMMAND  DEFINITION 

INX 

H 

XCHG 

CALL 

CNVRT 

{NOW  CONVERT  AND  STORE  ADDRESS 

XCHG 

MVI 

A,03H 

{STORE  BTX  CHARECTOR 

MOV 

M,A 

JMP 

MAIN 

NPAGE 

MVI 

A,  02H 

{THIS  SUB  IN  CONJUNCTION  WITH  OTHER 

FUNCTIONS 

STA 

19B0H 

{CONSTRUCT  A  PAGE  AND  SET  IT  UP  TO  BE 

RUN  IN  MAIN 

MVI 

A,  OlH 

{STORE  STX  THEN  COi^MAND  DEFINITION 

oTA 

19B1H 

LXI 

D,  19B2H 

LHLO 

2400H 

CALL 

CNVRT 

LHLD 

2402H 

CALL 

CNVRT 

LOA 

2404H 
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MOV 

L,  A 

CALL 

CNVRTl 

LHLD 

2405H 

CALL 

CNVRT 

LHLD 

2407H 

CALL 

CNVRT 

LXI 

B, 2409H 

G84 

LDAX 

B 

MOV 

L,  A 

CALL 

CNVRTl 

MOV 

A,C 

INX 

B 

CPI 

15H 

JNZ 

G84 

LHLD 

2416H 

CALL 

CNVRT 

MVI 

A,  03H 

;NOW  STORE  ETX 

STA 

19E2H 

JMP 

MAIN 

DUMP 

MVI 

A, OSH 

;STORE  COMMAND  FOR  DUMP  DURING  MAIN 

GIO 

STA 

19B1H 

MVI 

A,02H 

; STORE  STX 

STA 

19B0H 

MVI 

A,03H 

; STORE  ETX 

STA 

19B  2H 

JMP 

MAIN 

CONT 

MVI 

A,40H 

jSTORE  COMMAND  FOR  CONTINUE  DURING  MAIN 

JMP 

GIO 

WAIT 

MVI 

A,  20H 

;STORE  COMMAND  FOR  WAIT  DURING  MAIN 

JMP 

GIO 

RATIO 

LXI 

H,M31 

;THIS  SUB  DEFINES  RATIO  FOR  USE  WITH 

NPAGE 

MVI 

A,  06H 

.•DISPLAY  ADDRESS  MESSAGE 

CALL 

MESSAG 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

ADDRES 

;GET  RATIO 

JC 

RATIO 

;JUMP  IF  ERROR  IN  SUB 

LDA 

1809H 

AN  I 

02H 

JZ 

G4 

LXI 

H, OEOOOH 

DAD 

D 

XCHG 

G4 

MOV 

A,E 

STA 

2407H 

MOV 

A,D 

STA 

2408H 

CALL 

ENDIT 

RET 

MASK 

LXI 

H,M31 

;THIS  SUB  DEFINES  MASK  FOR  USE  WITH 

NPAGE 

MVI 

A,  06H 

.•DISPLAY  NUMBER  MESSAGE 
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CALL 

MESSAG 

LXI 

M, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

GETDAT 

;GET  MASK 

JC 

MASK 

;JUMP  IF  ERROR  IN  SUB 

STA 

2414H 

CALL 

END  IT 

RET 

IDNUM 

LXI 

H,M31 

;THIS  SUB  DEFINES  PROGRAM  ID  FOR 

USE 

WITH 

NPAGE 

MVI 

A,  06H 

;DISPLAY  NUMBER  MESSAGE 

CALL 

MESSAG 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

ADDRES 

;GET  IDNUM 

JC 

IDNUM 

;JUMP  IF  ERROR  IN  SUB 

MOV 

A,  E 

STA 

2416H 

MOV 

A,D 

STA 

2417H 

CALL 

ENDIT 

RET 

LOP 

LXI 

H,M31 

;THIS  SUB  DEFINES  NUMBER  OF  LOOPS 

USED 

WITH 

NPAGE 

MVI 

A,06H 

CALL 

MESSAG 

.•DISPLAY  NUMBER  MESSAGE 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

GETDAT 

;GET  NUMBER  OF  LOOPS 

RC 

.•RETURN  IF  ERROR 

STA 

2404H 

CALL 

ENDIT 

RET 

TIME 

LXI 

H,M31 

.•THIS  SUB  DEFINES  TIME  INTERVAL  USED 

WITH 

NPAGE 

MVI 

A,  OjH 

CALL 

MESSAG 

;DISPLAY  NUMBER  MESSAGE 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

CALL 

ADDRES 

;GET  TIME 

RC 

;RETURN  IF  ERROR 

LDA 

1809H 

ANI 

02H 

JZ 

G12 

LXI 

H, OEOOOH 

DAD 

D 

XCHG 

G12 

MOV 

A,E 

STA 

240511 

MOV 

A,U 

STA 

24  0riH 

CALL 

ENDIT 

RET 

AMU 

LXI 

H,M30 

;THIS  SUB  DEFINES  START  AND  STOP 

AMU 

USED  WITH 

NPAGE 

MVI 

A, OSH 

.•DISPLAY  START?  MESSAGE 
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MESSAG 
READ 
9dH 

OCEH 
Gll 
0D9H 
AMU 
H,M31 
A,  0611 
MESSAG 
H, 1809H 
ADDRES 
AMU 
1809H 
02H 
G13 
H, OEOOOH 
D 

18H,iaH  .-ROTATE  -DE-  TO  THE  LEFT  2  TIMES 

H, lOOOH 

CMPUH 

AMU 

A,E 

OPCH  {REMOVE  2  LSBITS 

2400H 

A,D 

2401H 

H,M32  {DISPLAY  ENDING? 

A,07H 

MESSAG 

READ  {GET  A  YES  OR  NO  ANSWER 
98H  {IS  IT  AN  ESC? 

{RETURN  IF  IT  IS 
OCEH  {IS  IT  A  NO? 

G80  {RETURN  IF  IT  IS 

0D9H  {IS  IT  A  YES? 

Gll  {JUMP  IF  ITS  NOT 

H,M31  {DISPLAY  NUMBER  MESSAG 

A,06H 
MESSAG 

H,  180911  {LOAD  -HL-  WITH  STATUS  ADDRESS 

ADDRES  {GET  STOP  AMU 

Gll  {RETURN  IF  ERROR 

1809H 

02H 

G14 

H. OEOOOH 
D 


GET  A  YES  OR  NO  ANSWER 
IS  IT  AN  ESC? 

RETURN  IF  IT  IS 
IS  IT  AN  N? 

JUMP  AND  BYPASS  DEFINING  START  AMU 
IS  IT  A  YES? 

JUMP  IF  ITS  NOT 
DISPLAY  NUMBER  MESSAGE 


{LOAD  -HL-  WITH  STATUS  ADDRESS 

{GET  START  AMU 

{JUMP  IP  ERROR  IN  SUB 


18H,18H  {ROTATE  -DE-  2  TIMES  TO  THE  LEFT 


LXI 

H, lOOOH 

CALL 

CMPDH 

JNC 

Gil 

MOV 

A,E 

OR  I 

03H 

;SET  2  LS3ITS 

STA 

2402H 

MOV 

A,D 

STA 

2403H 

G80 

CALL 

ENDIT 

RET 

GOTOBB 

LXI 

H,M45 

; JUMPS  TO  REP, PROG, INST  IN  BBIMS 

MVI 

A,  OSH 

;DISPLAY  RPETOIRE  MESSAGE 

CALL 

MESSAG 

LXI 

H, 1809H 

;GET  ADDRESS  OF  REP 

CALL 

ADORES 

JC 

GOTOBB 

;JUMP  BACK  IF  ERROR 

LXI 

H, 19B 2H 

.•CONVERT  AND  STORE 

XCHG 

CALL 

CNVRT 

XCHG 

G15 

LXI 

H,M43 

;DISPLAY  PROGRAM  MESSAGE 

MVI 

A,07H 

CALL 

MESSAG 

LXI 

H,1809H 

CALL 

ADORES 

;GET  ADDRESS  OF  PROGRAM 

JC 

G15 

;JUMP  BACK  IF  ERROR 

LXI 

H,19B6H 

.•CONVERT  AND  STORE 

XCHG 

CALL 

CNVRT 

XCHG 

G16 

LXI 

H,M44 

.•DISPLAY  INSTRCT  MESSAGE 

MVI 

A,07H 

CALL 

MESSAG 

LXI 

H, 1809H 

CALL 

ADORES 

.-GET  ADDRESS  OF  INST 

JC 

G16 

LXI 

H, 19BAH 

.•CONVERT  AND  STORE 

XCHG 

CALL 

CNVRT 

MVI 

A,02H 

STA 

19B0H 

MVI 

A,  lOH 

STA 

19B1H 

MVI 

A,03H 

STA 

19BEH 

JMP 

MAIN 

END 
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STITLE  "BaiMS4  WRITTEN  BY  JIM  MANLEY  FIFTH  OF  SIX" 

GLOBAL  TRMOUT 

GLOBAL  MAO 

GLOBAL  M39 

GLOBAL  CMPDH 

GLOBAL  INITAL 

GLOBAL  MESSAG 

GLOBAL  GcTDAT 

GLOBAL  ERROR 


GLOBAL  ADORES 
GLOBAL  BELL 
GLOBAL  READ 
GLOBAL  ENDIT 
GLOBAL  M15 
GLOBAL  M16 
GLOBAL  Ml  7 
global  M18 
GLOBAL  M19 
GLOBAL  M20 
GLOBAL  M21 
GLOBAL  M22 
GLOBAL  M23 
GLOBAL  M24 
GLOBAL  M25 
GLOBAL  M26 
GLOBAL  M27 
GLOBAL  M28 
GLOBAL  M29 
INITAL  MVI  A,OFFH 

STA  18EBH 

LXI  H,M22 


MVI  A,07H 

CALL  GETLOC 

JC  G2 

STA  18E4H 

G2  MVI  A,iyH 

STA  18E5H 

STA  18E7H 

STA  18E9H 

LXI  H,M21 

MVI  A,08rt 

CALL  GETLOC 

JC  G1 

STA  18B6H 


G1  LXI  H,M23 

MVI  A, OSH 

CALL  GETLOC 

JC  G50 

STA  18E8H 

LXI  H,M24 


;THIS  PROG  DEFINES  ALL  CHANNELS  FOR  TM 

SORTING 

; DISPLAY  AMU  LOC  MESSAGE 
;GETS  A  BYTE  BETWEEN  0  AND  3F 

; STORE  FOR  D  TO  A  RECOVERY 


DISPLAY  DATA  LOC  MESSAGE 

GET  ANOTHER  TM  BYTE  DEF 

STORE  FOR  DA  STA  18E6H  ; STORE 

FOR  D  TO  A  RECOVERY 
DISPLAY  SBID  LOC  MESSAGE 

GET  ANOTHER  TM  BYTE  DEF 

STORE  FOR  SUB  ID  MATCH 
DISPLAY  DISPLAY/MESSAGE 


G50 


MVI 

A,  06H 

CALL 

MESSAG 

MVI 

A,01H 

STA 

3806H 

CALL 

TRMOUT 

MVI 

A, OBFH 

STA 

3807H 

CALL 

TRMOUT 

LXI 

D, 19U0H 

; POINT  TO  BEGINNING  OF  DISFLAY/L I‘JT 

CALL 

GETALL 

;GET  STANDARD  DEFINITIONS 

JC 

G3 

;JUMP  IF  NO  NEED  TO  STORE 

SHLD 

1908H 

; STORE  LOW  BYTE  LOCATION 

XCHG 

SHLD 

190AH 

.•STORE  HIGH  BYTE  LOCATION 

LXI 

H,M25 

.•DISPLAY  AMU#  MESSAGE 

MVI 

A,  04H 

CALL 

MESSAG 

LXI 

H, 1809H 

.•LOAD  -HL-  WITH  STATUS  LOC 

CALL 

ADDRES 

;GET  AMU# 

JC 

G3 

.•SKIP  REST  IF  CR  IS  ENTERED 

MOV 

A,M 

;DO  WE  NEED  TO  SUBTRACT  2000? 

AN  I 

02H 

JZ 

G39 

;JUMP  IF  WE  DONT 

LXI 

H, OEOOOH 

.•SUBTRACT  2000 

DAD 

D 

XCHG 

BYTE 

18H 

.•SHIFT  -DE-  TO  THE  LEFT  2  TIMES 

BYTE 

18H 

MOV 

A,E 

.•REMOVE  2  LSBITS 

AN  I 

OFCH 

MOV 

E,  A 

PUSH 

D 

;SAVE  AMU# 

LXI 

H,M26 

.•DISPLAY  STEP  MESSAGE 

MVI 

A,  04H 

CALL 

MESSAG 

LXI 

H, 1809H 

CALL 

GETDAT 

;GET  BYTE 

JC 

G37 

.•JUMP  IF  ERROR 

POP 

H 

.•RETRIEVE  AMU# 

ANI 

03H 

.•COMBINE  AMU#  AND  STEP 

ORA 

L 

MOV 

L,  A 

LXI 

D, OFFFH 

;IS  -HL-  GREATER  THAN  MAX 

CALL 

CMPDH 

JC 

G4 

.•JUMP  IF  TO  BIG 

XCHG 

;SHIFT  -DE-  TO  THE  LEFT  FOUR  TIMES 

BYTE 

18H 

BYTE 

18H 

BYTE 

18H 

BYTE 

18H 

XCHG 

SHLD 

190CH 

.•STORE  AMU  MATCH  DATA 

G3 

LXI 

n,M24 

DISPLAY  DISPLAY  2  MESSAGE 

MVX 

A,  06H 

CALL 

MESSAG 

MVI 

A,  02H 

STA 

380(SH 

CALL 

TRMOUT 

MVI 

A, OBFH 

STA 

38U7H 

CALL 

TRMOUT 

LXI 

D, 190EH 

•POINT  TO  BEGINNING  OF  DISPLAY  2  LIST 

CALL 

GETALL 

GET  STANDARD  DEFINITIONS 

JC 

G33 

JUMP  IF  NO  NEED  TO  STORE 

SHLD 

1916H 

STORE  LOW  BYTE  LOCATION 

XCHG 

SHLD 

1918H 

STORE  HIGH  BYTE  LOCATION 

G33 

LXI 

H,M24 

DISPLAY  DISPLAY  3  MESSAGE 

MVI 

A,  06H 

THE  REST  IS  THE  SAME  AS  THE 

DISPLAY  2 

SECTION 

CALL 

MESSAG 

MVI 

A,  03H 

STA 

3806H 

CALL 

TRMOUT 

MVI 

A, OBFH 

STA 

3807H 

CALL 

TRMOUT 

LXI 

D, 191AH 

CALL 

GETALL 

JC 

G34 

[JUMP  IF  NO  NEED  TO  STORE 

SHLD 

1922H 

XCHG 

SHLD 

1924H 

G34 

LXI 

H,M24 

•DISPLAY  DISPLAY  4  MESSAGE 

MVI 

A,  OSH 

rTHE  REST  IS  THE  SAME  AS  THE 

DISPLAY  2 

SECTION 

CALL 

MESSAG 

MVI 

A,  04H 

STA 

380SH 

CALL 

TRMOUT 

MVI 

A,  ObFli 

STA 

3807H 

CALL 

TRMOUT 

LXI 

D, 192SH 

CALL 

GETALL 

JC 

G35 

SHLD 

192EH 

XCHG 

SHLD 

193  OH 

G35 

XRA 

A 

STA 

ISEBH 

MVI 

B,00H 

THIS  BEGINS  THE  ANALOG  DEFINITIONS 

G5 

I  NR 

8 

POINT  TO  NEXT  AN  CHANNEL 

MOV 

A,B 
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'iaw's 


G15 


GIO 


G81 


CPI 

06H 

JZ 

GIU 

PUSH 

B 

LXI 

H,M28 

MVI 

A,  06H 

CALL 

MESSAG 

MVI 

A. OBFH 

STA 

3SU7H 

CALL 

TRMOUT 

MOV 

A,  B 

STA 

3806H 

CALL 

T KM OUT 

CPI 

OlH 

JZ 

11 

CPI 

■-3:h 

JC 

G12 

JZ 

G13 

CPI 

OSH 

JC 

G14 

LXI 

D, 1962H 

PUSH 

H 

CALL 

XCHG 

GETALL 

POP 

D 

POP 

B 

JC 

G5 

MOV 

A.B 

CPI 

OlH 

JZ 

G6 

CPI 

03H 

JC 

G7 

JZ 

G8 

CPI 

OSH 

JC 

G9 

SHLD 

196AH 

LXI 

H,M29 

MVI 

A,  07H 

CALL 

MESSAG 

LXI 

H, 1809H 

MVI 

A, OFFH 

STA 

1849H 

CALL 

GETDAT 

JC 

G73 

CPI 

40H 

JNC 

GIO 

ADI 

6EH 

STA 

19AEH 

MVI 

A,19H 

STA 

19AFH 

LXI 

H,M39 

MVI 

A,07H 

;IS  THIS  THE  LAST  ONE? 
.•DISPLAY  ANALOG  MESSAGE 


;WHICH  ANALOG  CHANNEL? 

.•DISPLAY  WHICH  ONE 

.■LOAD  -HL-  WITH  STARTING  OF  THE 

CHANNELS  LIST 


;BEGINNING  OF  CHANNEL  5 
.•SAVE  BEGINNING  POINTER 
;GET  STANDARD  DEFINITION 


;JUMP  IF  NO  NEED  TO  STORE 
fGET  CHANNEL  NUMBER 


; STORE  BYTE  LOCATION 
.•DISPLAY  TTY  LOC  MESSAGE 


;PUT  STATUS  ADDRESS  INTO  -HL- 


;JJMP  IF  ERROR  IN  SUB 
;IS  BYTE  BETWEEN  0  TO  3F? 
.•JUMP  IF  ITS  NOT 
;ADD  OFFSET 
.•STORE  BYTE  LOCATION 
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CALL 

MESSAG 

CALL 

READ 

CPI 

9BH 

JZ 

G72 

CPI 

SDH 

JI 

G74 

CPI 

OCEH 

JZ 

G82 

CPI 

0D9H 

JNZ 

G81 

XRA 

A 

STA 

1829H 

G74 

CALL 

RET 

ENDIT 

GB2 

MVI 

A, OFFH 

STA 

1829H 

JMP 

G74 

G73 

ORA 

A 

JZ 

G81 

JMP 

GIO 

GETLOC 

CALL 

MESSAG 

LXI 

H, 1809H 

MVI 

A, OFFH 

STA 

1849H 

CALL 

RC 

GETDAT 

CPI 

40H 

JNC 

G40 

ADI 

RET 

6EH 

G4() 

CALL 

STC 

RET 

ERROR 

G4 

LXI 

H,M27 

MVI 

A,  ()7H 

CALL 

MESSAG 

LXI 

H, 3FfFH 

CALL 

RET 

BELL 

Gil 

LXI 

D, 1932H 

JMP 

Gib 

G12 

LXI 

D, 193EH 

JMP 

Gib 

G13 

LXI 

D, 194AH 

JMP 

Gib 

G14 

LXI 

D, 1956H 

JMP 

Gib 

G6 

SHLU 

193AH 

JMP 

G36 

G7 

SHLD 

1946H 

JMP 

G36 

G8 

SHLD 

199211 

;IS  -ACC-  ZERO 

;JUMP  IF  IT  IS  AND  END 

;TRIS  SUB  GETS  A  BYTE  BETWEEN  0  AND  3F 
;LOAD  STATUS  ADDRESS  INTO  -HL- 


;RETURN  IF  ERROR 
;IS  IT  LESS  THAN  40? 

IF  ERROR 
;ADD  AN  OFFSET 


;  DISPLAY  BAD  AMU  MESSAGE 

jRING  BELL 
;RING  BELL 


JMP 

G36 

G9 

SHLD 

195EH 

G36 

LOAX 

D 

OR  I 

OlH 

STAX 

D 

JMP 

G5 

GETALL 

CALL 

READ 

;THIS  SUB  GETS  STANDARD  DEFINITIONS 

CPI 

9BH 

;IS  ENTRY  AN  ESC? 

JZ 

G72 

CPI 

8DH 

;IS  ENTRY  A  CR? 

JZ 

G17 

;JUMP  IF  IT  IS  AND  SKIP  ALL 

DEFINITIONS 

CPI 

OCEH 

;IS  ENTRY  AN? 

JZ 

G16 

;JUMP  IF  IT  IS  AND  REMOVE  ALL 

DEFINITIONS 

CPI 

0D9H 

;IS  ENTRY  A  Y? 

JNZ 

GETALL 

; ERROR  IN  ENTRY  SR ART  AGAIN 

G18 

LXI 

H,M15 

; DISPLAY  DATAVAL?  MESSAG 

MVI 

A,C3H 

CALL 

MESSAG 

CALL 

READ 

;GET  YES  OR  NO  ENTRY 

CPI 

9BH 

;IS  ENTRY  AN  ESC 

JZ 

G72 

CPI 

OCEH 

;IS  IT  A  N? 

JZ 

G19 

;JUMP  IF  IT  IS 

CPI 

0D9H 

JNZ 

G18 

; ERROR  IN  ENTRY  TRY  AGAIN 

MVI 

A,OCOH 

;LOAD  -ACC-  WITH  FLAGS  USED 

AND  DATA 

VALID 

G20 

STAX 

D 

; STORE  FLAGS 

G21 

LXI 

H,M16 

.•DISPLAY  DECIMAL?  MESSAGE 

MVI 

A,  08H 

CALL 

MESSAG 

CALL 

READ 

;GET  YES  OR  NO  ENTRY 

CPI 

9BH 

;IS  ENTRY  AN  ESC? 

JZ 

G72 

CPI 

OCEH 

;IS  ENTRY  A  N? 

JZ 

G22 

.•JUMP  IF  IT  IS 

CPI 

0D9H 

JNZ 

G21 

.-ERROR  IN  ENTRY  TRY  AGAIN 

MVI 

B ,  20H 

.•LOAD  -B-  WITH  FLAG  DECIMAL 

G23 

LDAX 

D 

.•LOAD  FLAG  INTO  FLAG  BUFFER 

ORA 

B 

STAX 

D 

G84 

LXI 

H,M40 

.-DISPLAY  MATCH?  MESSAGE? 

MVI 

A,  06H 

CALL 

MESSAG 

CALL 

READ 

CPI 

9BH 

JZ 

G72 

CPI 

OCEH 

JZ 

G7y 

CPI 

CD9H 

JNZ 

G84 

MVI 

B,08H 

G85 

LDAX 

D 

ORA 

B 

STAX 

D 

G24 

LXI 

H,M17 

DISPLAY  SUB  IDS  MESSAGE 

MVI 

A,  08H 

CALL 

MESSAG 

CALL 

READ 

CPI 

9BH 

IS  ENTRY  AN  ESC? 

JZ 

G72 

CPI 

OCEH 

IS  ENTRY  A  N? 

JZ 

G25 

JUMP  IF  IT  IS 

CPI 

0D911 

IS  ENTRY  A  Y? 

JNZ 

G24 

ERROR  IN  ENTRY  TRY  AGAIN 

MVI 

B,  lOH 

LOAD  -B-  WITH  FLAG  SUB  IDS 

LDAX 

D 

LOAD  FLAG  INTO  FLAG  BUFFER 

ORA 

B 

STAX 

D 

PUSH 

D 

■SAVE  BUFFER  ADDRESS 

MVI 

B,00H 

■SUB  ID  COUNTER 

G28 

LXI 

H,M18 

DISPLAY  SUB  ID  MESSAGE 

MVI 

A,  06H 

CALL 

MESSAG 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

PUSH 

B 

?SAVB  SUB  ID  COUNTER 

PUSH 

D 

rSAVE  SUB  ID  STORAGE  POINTER 

MVI 

A,0FFH 

?TELL  SUB  GET  DALL  TO  RETURN  ON  00 

ENTRY 

STA 

1849H 

CALL 

GETDAT 

■GET  SUB  ID  NUMBER 

POP 

D 

POP 

B 

JC 

G27 

JUMP  IF  NO  MORE  ENTRIES 

I  NX 

D 

;SET  UP  TO  STORE  SUB  ID 

INR 

B 

STAX 

D 

MOV 

A,B 

fCAN  THERE  BE  ANY  MORE  SUB  IDS  ENTERED 

CPI 

07H 

JNZ 

G28 

JUMP  IF  THERE  CAN 

G27 

POP 

H 

GET  BACK  FLAG  POINTER 

MOV 

A,B 

LOAD  SUB  IF  COUNTER  INTO  FLAGS 

ORA 

M 

MOV 

M,A 

G26 

LDA 

18EBH 

ORA 

A 

JZ 

Gas 

LXI 

H,M19 

DISPLAY  LOW  BYTE  LOC  MESSAGE 

MVI 

A,  08H 

CALL 

MESSAG 

LXI 

H, 1809H 

LOAD  -HL-  WITH  STATUS  ADDRESS 

G29 

MVI 

A,0FFH 

TELL  SUB  GETDAT  TO  RETURN 
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STA 

1849H 

CALL 

GETDAT 

CPI 

40H 

;IS  IT  A  GOOD  ENTRY? 

JNC 

G30 

;JUMP  IF  NOT 

ADI 

ecii 

;ADD  AN  OFFSET 

MOV 

E,  A 

;SAVE  LOW  BYTE  ADDRESS 

MVI 

D,  19H 

G83 

PUSH 

D 

LXI 

H,M20 

.'DISPLAY  MSBYTE  LOCATION  MESSAGE 

MVI 

A,  OSH 

CALL 

MESSAG 

LXI 

H, 1809H 

;LOAD  -HL-  WITH  STATUS  ADDRESS 

G31 

MVI 

A, OFFH 

.'TELL  SUB  GETDAT  TO  RETURN  UPON  00 

STA 

1849H 

CALL 

GETDAT 

CPI 

4UH 

; ENTRY  MUST  BE  LESS  THAN  40H 

JNC 

G32 

.'JUMP  IF  ITS  NOT 

ADI 

6EH 

.'ADD  AN  OFFSET 

MOV 

E,A 

.'PUT  HIGH  BYTE  INTO  -DE- 

MVI 

D,  19H 

POP 

H 

;PUT  LOW  BYTE  INTO  -HL- 

RET 

G79 

MVI 

B,00H 

JMP 

G85 

G72 

CALL 

ENDIT 

LHLD 

182AH 

.'GET  HOME  ADDRESS  AND  RET 

PCHL 

G32 

CALL 

ERROR 

JMP 

G31 

G30 

CALL 

ERROR 

JMP 

G29 

G25 

MVI 

B,00H 

.'RESET  SUBID  FLAG 

LDAX 

0 

ORA 

B 

STAX 

D 

JMP 

G26 

;GET  BYTE  LOCATIONS 

G22 

MVI 

8,00H 

.'RETSET  DECIMAL  FLAG 

JMP 

G23 

G19 

MVI 

A,80H 

.'RESET  DATA  VALID  AND  SET  USED  FLAGS 

JMP 

G20 

G16 

XRA 

A 

.'CLEAR  ALL  FLAGS 

STAX 

D 

G17 

STC 

.'UPON  RETURN  DONT  STORE  BYTE  LOCATION 

RET 

END 
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SIXTH  OF  SIX" 


STITLK 

"BBIMS5 

WHITTEN  BY  JIM  MANLEY  SIX' 

FH  OF  SIX" 

GLOBAL 

CLEAR 

GLOBAL 

G48 

GLOBAL 

CMPDH 

GLOBAL 

LDBUFF 

GLOBAL 

TTYLNK 

GLOBAL 

BINDEC 

GLOBAL 

MAIN 

GLOBAL 

MOVE 

GLOBAL 

FRAME 

ALLDEF 

PUSH 

D 

;GET  FLAGS  USED  DECIMAL  SUB  ID 

AND  DATA 

WORD  UPON 

RETURNING 

PUSH 

B 

MOV 

A,M 

;UPON  ENTERING  -HL-  CONTAINS 

POINTER  TO 

TOP  OF  LIST 

RLC 

.•CHECK  IS  DISPLAY  IS  USED 

CMC 

JC 

G47 

;JUMP  IP  ITS  NOT 

RLC 

.•CHECK  IF  DATA  VALID  NEEDED 

JC 

G41 

.•JUMP  IF  IT  IS  NEEDED 

G42 

RLC 

.•CHECK  FOR  SUBIDS  NEEDED 

RLC 

JC 

G43 

G40 

RLC 

JNC 

G46 

LOA 

1830H 

RLC 

CMC 

JC 

G47 

G46 

LXI 

D, 0008H 

.-ADD  8  TO  -HL-  TO  GET  TO  DATA 

LOCATIONS 

DAD 

D 

MOV 

E,M 

;GET  ADDRESS  OF  FIRST  BYTE 

INX 

H 

MOV 

D,M 

LDAX 

D 

.•GET  LOW  BYTE 

MOV 

C,  A 

INX 

H 

.•GET  ADDRESS  OF  LAST  BYTE 

MOV 

E,M 

INX 

H 

MOV 

U,M 

LDAX 

0 

.•GET  HIGH  BYTE 

MOV 

H,  A 

.•PUT  WORD  INTO  -HL- 

MOV 

L,C 

ORA 

A 

;CLEAR  CY  BIT 

G47 

POP 

B 

POP 

D 

RET 

LDHUFF 

LDA 

18E3H 

.•CHECK  FOR  A  BUFFER  FULL 

ORA 

A 

JZ 

LDBUFF 

DI 

LUA 

18E3H 

;DONT  LET  BUFFER  FLAGS  CHANGE 
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MAIN 


RAL 

JC 

LXI 

LXI 

XRA 

STA 

El 

LXI 

CALL 

LXI 

LDA 

DCR 

ADD 

MOV 

RET 

CALL 

DI 

XRA 

STA 

LXI 

SHLD 

CALL 

MVI 

PUSH 

CALL 

MOV 

CPI 

JNZ 

DCX 

MOV 

CPI 

JNZ 

MVI 

OUT 

POP 

LDA 

RLC 

JNC 

LHLD 

MOV 

INX 

MOV 

XCHG 

BYTE 

MOV 

OUT 

BYTE 

MOV 

OUT 

LHLD 

MOV 


G51 

H,  18A0H 
D, 18DFH 
A 

18E3H 

B, 195EH 

MOVE 

H, 196EH 

18E2H 

A 

L 

L,  A 

CLEAR 

A 

18E3H 
H, 1860H 

18E0H 
FRAME 
B,  OOH 
B 

LDBUFF 

A,M 

90H 

G53 

H 

A,M 

OEBH 
G53 
A,  04H 
0B3H 
B 

196EH 

G55 

18E4H 

D, M 
H 

E, M 

1011,  lOH, 
A,  L 
OFIH 
lOH, lOH 
A,  L 
OF  OH 
18E6H 
D,M 


;IS  BUFFER  1  FULL? 

;JUMP  IF  IT  IS 

.-LOAD  -HL-DE-BC —  WITH  MOVE  PARAMETERS 


;RESET  BUFFER  PULL  FLAGS 


;CHECK  LAST  WORK  IN  TM  FOR  SYNC 
;GET  NUMBER  OF  BYTES  IN  FRAME 

;ADD  NUMBER  OF  BYTES  TO  POINTER 


;CLEAR  ALL  DISPLAYS 

;START  OF  MAIN  TM  OPERATING  SYSTEM 

; FIRST  FRAME  THE  PCM  TRAIN 

.-STORE  BEGINNING  OF  TM  BUFFER  IN 

POINTER 


;LET  ONE  ERROR  IN  FRAMEING  GO  BY 

.-LOAD  THE  PCM  BUFFER 
;GET  LAST  BYTE 
;CHECK  FOR  SYNC 
;JUMP  IF  NOT  RIGHT 

;GET  SECOND  TO  LAST  BYTE 

;JUMP  IF  NO  SYNC 
;TURN  ON  SYNC  LED 

; CORRECT  THE  STACK 
.-CHECK  FOR  DATA  VALID 

.-JUMP  IF  NO  VALID  DATA 


lOH, lOH, lOH, lOH 
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G57 


G55 


G78 


G87 

G50 


INX 

H 

MOV 

£,M 

XCHG 

MOV 

A,H 

RLC 

JC 

G56 

MVI 

A,09H 

OUT 

0B3H 

MOV 

A,  L 

OUT 

OF4H 

BYTE 

lOH, lOH, 

lOH, lOH 

MOV 

A,  L 

OUT 

0F3H 

BYTE 

lOH,  1011, 

lUH, lOH 

MOV 

A,L 

ANl 

07FH 

OUT 

0F2H 

LDA 

196EH 

.‘OUTPUT  DATA  VALID  CPU  DWN  LEDS 

CMA 

ANI 

OEOH 

MOV 

B,A 

IN 

0B2H 

ANl 

IFH 

ORA 

B 

OUT 

0B2H 

LDA 

196EH 

; CHECK  FOR  BURST  READY  FLAG 

ANI 

OSH 

JZ 

G80 

.‘JUMP  AND  TURN  OFF  BELL 

MVI 

A,06H 

{TURN  ON  BELL  IF  GETTING  READY  TO  DUMP 

OUT 

0B3H 

LDA 

196EH 

.‘CHECK  DATA  VALID  FLAGS 

RAL 

CMC 

MVI 

A,  07H 

RAL 

•SET  UP  TO  TURN  ON  OR  OFF  DATA  VALID 

OUT 

0B3H 

LED 

LDA 

196EH 

ANI 

04H 

;CHECK  FOR  TTY  ACTIVE 

JNZ 

TTYLNK 

.‘JUMP  IF  ACTIVE 

XRA 

A 

; CLEAR  MATCH  FLAG 

STA 

1830H 

LDA 

196EH 

RLC 

JNC 

G50 

LHLD 

190CH 

CALL 

CMPDH 

MVI 

A,00H 

JNZ 

G87 

CMA 

STA 

1830H 

LXI 

H,1900H 

jLOAD  -HL-  WITH  START  OF  DISPLAY  1 
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PARAMETERS 


CALL  ALLDEF  ;GET  DATA 

JC  G60  ;JUMP  IF  NO  UPDATE  NEEDED 

LDA  1900H  ;CHECK  FOR  MATCH  FLAG 

ANI  OSH 

JZ  G59  ;JUMP  IF  NO  MATCH 

BYTE  lOH, lOH, lOH, lOH, lOH, lOH 

MOV  A,H 

ANI  03H 

MOV  H,A 

G59  LDA  1900H  .-CHECK  FOR  DECIMAL  CONVERSION 

ANI  20H 

XCHG 

CNZ  BINDEC  ;CALL  IF  CONVERSION  NEEDED 

MOV  A.D  ;NOW  OliiPLAY  ON  DISPLAY  1 

ANI  OFOH 

RRC 

RRC 

RRC 

RRC 

STA  181BH 

MOV  A.D 

ANI  OFH 

STA  181AH 

MOV  A.E 

ANI  OFOH 

RRC 

RRC 

RRC 

RRC 

STA  181 9H 

MOV  A.E 

ANI  OFH 

STA  181 8H 

G60  LXI  H,190EH  .-LOAD  -HL-  WITH  POINTER  FOR  DISPLAY  2 

CALL  ALLDEF 

JC  G62  .-JUMP  IF  BY  PASSED 

LDA  190EH 

ANI  OSH 

JZ  GS8 

MOV  A.H 

RAL 

JNC  G89 

CMC 

RAR 

MOV  H.A 

MVI  A.IOH 

G76  STA  1827H 

LXI  D,9999 

CALL  CMPDH 

JNC  G90 

XRA  A 
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0B3H 


G91 

G88 


G62 


OUT 
XCliG 

LDA  190EH  ;IS  DECIMAL  CONVERSION  NEEDED? 

ANl  20H 

CNZ  BINDEC  ;CALL  IF  CONVERSION  NEEDED 

MOV  A,D  .-DISPLAY  ON  DISPLAY  2 

ANI  Ot'OH 

RRC 

RRC 

RRC 

RRC 

ST A  1826H 

MOV  A.D 

ANI  OFH 

STA  1825H 

MOV  A.E 

ANI  OF OH 

RRC 

RRC 

RRC 

RRC 

STA  1824H 

MOV  A,E 

ANI  OFH 

STA  182 3H 

LXI  H,191AH  .-LOAD  -HL-  WITH  POINTER  FOR  DISPLAY  3 

CALL  ALLDEF 

JC  G61  .-JUMP  IF  BYPASSED 

XCHG 

LDA  191AH  ;IS  DECIMAL  CONVERSION  NEEDED 

ANI  20H 

CNZ  BINDEC  .-CALL  IF  IT  IS 

MOV  A.D  .-DISPLAY  ON  DISPLAY  3 

ANI  OF OH 

RRC 

RRC 

RRC 

RRC 

STA  1821H 

MOV  A.D 

ANI  OFH 

STA  1820H 

MOV  A.E 

ANI  OFOH 

RRC 

RRC 

RRC 

RRC 

STA  181FH 

MOV  A.E 

ANI  OFH 

STA  ISlEri 


-  288  - 


G61 


G67 


G68 


G69 


G70 


G71 


LXI 

H, 1926H 

;LOAD  -HL-  WITH  POINTER 

FOR  DISPLAY  4 

CALL 

ALLDEF 

JC 

G67 

;JUMP  IF  BY  PASSED 

XCHG 

LDA 

1926H 

.•DECIMAL  CONVERSION  NEEDED? 

ANl 

20H 

CNZ 

BINDEC 

.•CALL  IF  IT  IS 

MOV 

A,L) 

.•DISPLAY  ON  DISPLAY  4 

ANI 

OF  OH 

RRC 

RRC 

RRC 

RRC 

STA 

3800H 

MOV 

A,D 

ANI 

OFH 

STA 

3801H 

MOV 

A,E 

ANI 

OF  OH 

RRC 

RRC 

RRC 

RRC 

STA 

3802H 

MOV 

A,  E 

ANI 

OFH 

STA 

3803H 

RST 

1 

.•UPDATE  HEX  DISPLAYS 

LXI 

H, 1932H 

;LOAD  -HL-  WITH  POINTER 

FOR  ANALOG  1 

CALL 

ALLDEF 

JC 

G68 

.•JUMP  IP  BY  PASSED 

MOV 

A,L 

OUT 

0F5H 

.-OUTPUT  TO  A1 

LXI 

H, 193EH 

.•LOAD  -HL-  WITH  ANALOG  2 

POINTER 

CALL 

ALLDEF 

JC 

G69 

.•JUMP  IP  BYPASSED 

MOV 

A,L 

OUT 

0F6H 

; OUTPUT  TO  AN 2 

LXI 

H, 194AH 

.•LOAD  -HL-  WITH  ANALOG  3 

POINTER 

CALL 

ALLDEF 

JC 

G70 

.•JUMP  IP  BYPASSED 

MOV 

A,  L 

OUT 

0F7H 

; OUT PUT  TO  AN 3 

LXI 

H, 1956H 

.•LOAD  -HL-  WITH  ANALOG  4 

POINTER 

CALL 

ALLDEF 

JC 

G71 

;JUMP  IF  BYPASSED 

MOV 

A,L 

OUT 

0F8H 

; OUT PUT  TO  ANY 

LXI 

H, 1962H 

.•LOAD  -HL-  WITH  ANALOG  5 

POINTER 

CALL 

ALLDEF 

JC 

G48 

.'JUMP  IF  BYPASSED 

MOV 

A,L 
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OUT 

0F9H 

.•OUTPUT  TO  AN5 

JMP 

G48 

G80 

MVI 

A,  07H 

;TURN  BELL  OFF 

JMP 

G78 

G41 

MOV 

B,  A 

.-CHECK  FOR  DATA  VALID 

LDA 

196£li 

!^LC 

MOV 

A,  b 

CMC 

JC 

G47 

.-JUMP  IF  IT  ISNT 

JMP 

G42 

G4  3 

PUSH 

H 

.-SAVE  FIRST  POINTER  LOCATION 

PUSH 

PSW 

MOV 

A,M 

;GET  NUMBER  OF  SUB  IDS  IN  LIST 

ANI 

07H 

MOV 

B,  A 

.-STORE  IN  -B- 

XCHG 

INX 

D 

; POINT  TO  FIRST  SUB  ID 

LHLU 

18E8ti 

.-GET  LOCATION  OF  PRESENT  SUB  ID 

MOV 

A,M 

.-GET  PRESENT  SUB  ID 

XCHG 

G44 

CMP 

M 

.-COMPARE  PRESENT  SUB  ID  TO  SUB  ID  LIST 

J2 

G45 

.-JUMP  IF  THERE  IS  A  MATCH 

DCH 

B 

.-DECREAMENT  NUMBER  OF  SU6IDS  IN  THE 

LIST 

J2 

G77 

.-JUMP  IF  NO  MORE 

INX 

H 

; POINT  TO  NEXT  SUB  ID 

JMP 

G44 

G89 

MVI 

A,  OAOH 

JMP 

G76 

G90 

MVI 

A,  OlH 

JMP 

G91 

Qll 

POP 

PSW 

POP 

H 

STC 

JMP 

G47 

G45 

POP 

PSW 

.-GET  BACK  FIRST  POINTER  LOCATION 

POP 

H 

JMP 

G4U 

G51 

LXI 

H, laeoH 

.-SET  UP  TO  MOVE  BUFFER  1  TO  ANOTHER 

BUFFER 

LXI 

D, 189FH 

JMP 

G52 

GbJ 

POP 

B 

.-GET  BACK  -B- 

MVI 

A,  USH 

;TURN  OFF  SYNC  LED 

OUT 

OB  ill 

MOV 

A ,  B 

MVI 

B, OFFH 

.-SET  SECOND  TIME  THROUGH  FLAG 

RLC 

;IS  THIS  THE  SECOND  TIME  THROUGH  LOOP? 

JC 

MAIN 

JMP 

G49 

Gbf> 

MVI 

A,08H 

.'TURN  ON  NEG  LED 
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SECTION  TABLES 

GTITLE  "LOOKUP  TABLES  AND  MESSAGES  FOR  BBIMS  BY  J 

MANLEY" 

GLOBAL  M40 
GLOBAL  M41 
GLOBAL  M42 
GLOBAL  M4i 
GLOBAL  M44 
GLOBAL  .M4S 
GLOBAL  M3y 
GLOBAL  LOOKP 
GLOBAL  M30 
GLOBAL  M31 
GLOBAL  M32 
GLOBAL  M33 
GLOBAL  M34 
GLOBAL  M33 
GLOBAL  M36 
GLOBAL  M37 
GLOBAL  M38 
GLOBAL  MODE 
GLOBAL  M12A 
GLOBAL  BIASP 
GLOBAL  BIASS 
GLOBAL  MASK 


GLOBAL 

RBOOK 

GLOBAL 

NPAGE 

GLOBAL 

DUMP 

GLOBAL 

WAIT 

GLOBAL 

GOTOBB 

GLOBAL 

CONT 

GLOBAL 

MAIN 

GLOBAL 

INITAL 

GLOBAL 

RATIO 

GLOBAL 

LOP 

GLOBAL 

TIME 

GLOBAL 

AMU 

GLOBAL 

NUMLK 

GLOBAL 

BIN 

GLOBAL 

Ml 

GLOBAL 

M2 

GLOBAL 

M3 

GLOBAL 

M4 

GLOBAL 

M5 

GLOBAL 

M6 

GLOBAL 

M7 

GLOBAL 

M8 

GLOBAL 

M9 

GLOBAL 

MIO 

GLOBAL 

Mil 
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LOOKP 


GLOBAL 

M12 

GLOBAL 

M13 

GLOBAL 

M14 

GLOBAL 

M15 

GLOBAL 

M16 

GLOBAL 

M17 

GLOBAL 

M18 

GLOBAL 

M19 

GLOBAL 

M20 

GLOBAL 

M21 

GLOBAL 

M22 

GLOBAL 

M23 

GLOBAL 

M24 

GLOBAL 

M25 

GLOBAL 

M26 

GLOBAL 

M27 

GLOBAL 

M28 

GLOBAL 

M29 

GLOBAL 

F  EPROM 

GLOBAL 

SWITCH 

GLOBAL 

BAUD 

GLOBAL 

GOTO 

GLOBAL 

BNRY 

GLOBAL 

DCML 

GLOBAL 

DIRECT 

GLOBAL 

INDHCT 

GLOBAL 

MOVEM 

GLOBAL 

FILLM 

GLOBAL 

DISPL 

GLOBAL 

ALTR 

GLOBAL 

COM  PA 

GLOBAL 

COM  PD 

ASCII 

"BINARY  " 

WORD 

BNRY 

BYTE 

OFFH,  OFFH 

BYTE 

92H, 0F4H 

ASCII 

"DECIMAL  ' 

WORD 

DCML 

BYTE 

OFFH, OFFH 

BYTE 

93H,0F3H 

ASC 1 1 

"UKCT  " 

WORD 

DIRECT 

BYTE 

OFFH, OFFH 

BYTE 

94H, 0F6H 

ASCII 

"INDRCT  " 

WORD 

INDRCT 

BYTE 

OFFH, OFFH 

BYTE 

95H,0F4H 

ASCII 

"MOVE  " 

WORD 

MOVEM 

BYTE 

03H, 18H 

BYTE 

96H, 0F6H 
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ASCII  "FILL  " 

WORD  FILLM 

BYTS  02H,18H 

BYTE  97H,0F6H 

ASCII  "DISPLAY 

WORD  DISPL 

BYTE  00H,18H 

BYTE  OFFH,OFFH 

ASCII  "ALTER  " 

WORD  ALTR 

BYTE  01H,18H 

BYTE  98H,0F5H 

ASCII  "COM PA  " 

WORD  COM  PA 

BYTE  05H,18H 

BYTE  99H,0F5H 

ASCII  "COM PD  " 

WORD  COM  PD 

BYTE  05H,18H 

BYTE  9AH,0F5H 

ASCII  "GO  " 

WORD  GOTO 

BYTE  07H,18H 

BYTE  9iH,0F8H 

ASCII  "BAUD  " 

WORD  BAUD 

BYTE  4FH,18H 

BYTE  9CH,0F6H 

ASCII  "FEPROM  " 

WORD  FEPROM 

BYTE  07H,18H 

BYTE  9DU,0F4H 

ASCII  "SWITCH  " 

WORD  SWITCH 

BYTE  4FH,18ri 

BYTE  9EH,0F4H 

ASCII  "MAIN  " 

WORD  MAIN 

BYTE  09H,18H 

BYTE  9FH,0F6H 

ASCII  "INITIAL 

WORD  INITAL 

BYTE  09H,18H 

BYTE  0A0H,0F3'rl 

ASCII  "RPAGE  " 

WORD  RPAGE 

BYTE  09H,18H 

BYTE  0B3H,0F5H 

ASCII  "RBOOK  " 

WORD  RBOOK 

BYTE  09H,18H 

BYTE  ()B4H,0F5H 
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ASCII 

"NPAGE  " 

WORD 

NPAGE 

BYTE 

09H, 18H 

BYTE 

OACH,  OEbH 

ASCII 

"DUMP  " 

WORD 

DUMP 

BYTE 

09H, 18H 

BYTE 

OADH,  OB'GH 

ASCII 

"WAIT  " 

WORD 

WAIT 

BYTE 

09H, 18H 

BYTE 

OAEH, 0F6H 

ASCII 

"CONT  " 

WORD 

CONT 

BYTE 

09H, 18H 

BYTE 

OAFH,  0F6H 

ASCII 

"GOBB  " 

WORD 

GOTOBB 

BYTE 

09H, len 

BYTE 

OABH,  0F6H 

ASCII 

"MASK  " 

WORD 

MASK 

BYTE 

09H, 18H 

BYTE 

0A1H,0F6H 

ASCII 

"IDNUM  " 

WORD 

IDNUM 

BYTE 

09H, 18H 

BYTE 

0A2H,0F5H 

ASCII 

"BIASP  " 

WORD 

BIASP 

BYTE 

09H, 18H 

BYTE 

0A3H,  OF5H 

ASCII 

"BIASS  " 

WORD 

BIASS 

BYTE 

U9H, 18H 

BYTE 

0A9H,  0F5H 

ASCII 

"MODE  " 

WORD 

MODE 

BYTE 

09ri, 18H 

BYTE 

0A4H, 0F6H 

ASCII 

"RATIO  " 

WORD 

RATIO 

BYTE 

09H, 18H 

BYTE 

OA 5H,  0F5H 

ASCII 

"LOP  " 

WORD 

LOP 

BYTE 

09H, 18H 

BYTE 

0A6H,  0F7H 

ASCII 

"TIME  " 

WORD 

TIME 

BYTE 

09H, 18H 

BYTE 

0A7H, 0F6H 

I  ' 

i  i 
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M27 

ASCII 

"BAD  AMU" 

M28 

ASCII 

" ANA  LOG " 

K29 

ASCII 

"TTY  LOC" 

M30 

ASCII 

" START? " 

M31 

ASCII 

"NUMBER" 

M32 

ASCII 

" ENDING?" 

M33 

ASCII 

"DOWN?" 

M34 

ASCII 

"AMU  SWP? 

M35 

ASCII 

"TOTIONS? 

M36 

ASCII 

"ACCUM?" 

M37 

ASCII 

"  Switch?" 

M38 

ASCII 

"BIAS" 

M39 

ASCII 

"PCMLNK?" 

M40 

ASCII 

"MATCH?" 

M41 

ASCII 

" STEPING? 

M42 

ASCII 

"VALUE" 

M45 

ASCII 

"HPETOIRE' 

M43 

ASCII 

"PROGRAM" 

M44 

ASCII 

" INSTRCT" 

END 
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